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A proposito di questo libro 

Questo libro è una guida, passo per passo, a una comprensione dei programmi e 
a una migliore conoscenza del BASIC. Anche chi non ha intenzione di 
programmare, dopo aver capito capito come funziona il BASIC, troverà facile 
modificare i programmi altrui o correggerne gli errori, e a quel punto sarà 
praticamente in grado di scrivere i propri programmi. 

Il libro inizia con una breve spiegazione dei principali comandi del BASIC, con 
molti esempi che ne illustrano l’operato. Successivamente viene mostrata la loro 
utilizzazione nei programmi per svolgere operazioni anche molto complicate, 
come creare un archivio, tracciare figure sullo schermo e ordinare dati. 

I programmi sono scritti in BASIC "standard”, cioè in una versione del BASIC 
che, con piccole variazioni, può essere utilizzata sulla maggior parte dei personal 
computer. (Tutti i programmi sono stati provati su Apple, e le istruzioni grafiche 
riportate nei listati sono relative a questo computer.) Alle pagine 10-11 viene 
spiegato come modificare i programmi per adattarli a quei personal computer; 
come quelli Sinclair, il cui BASIC è un po’ diverso da quello standard, i 
cambiamenti necessari sono alla fine del libro. 

Dettagliate spiegazioni a fianco dei programmi illustrano il funzionamento dei 
comandi e alcune utili tecniche, oltre che delle routine che puoi utilizzare nei 
tuoi programmi. Vengono presentate anche molte idee per compiere 
esperimenti sui programmi e adattarli ad altre operazioni. 
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Introduzione al BASIC 

Il linguaggio di programmazione 
BASIC comprende un centinaio di 
parole, ognuna delle quali ordina al 
computer di fare qualcosa. Affinché il 
computer esegua una determinata 
operazione, gli vanno forniti una serie 
di istruzioni e un insieme di 
informazioni su cui operare: queste 
istruzioni e queste informazioni 
costituiscono il "programma”. Per le 
istruzioni si possono utilizzare solo le 
parole del BASIC. Vanno inoltre 
seguite le regole del linguaggio che 
ne costituiscono la "sintassi". 

Nel BASIC ogni riga contenente 
un’istruzione è numerata; di solito la 
numerazione procede di dieci in 
dieci, per consentire l'inserimento di 
eventuali altre righe senza dover 
rinumerare tutto il programma. 

Battitura di un programma 


io 

20 

30 

40 

50 

60 

70 

80 

90 

100 


110 
20 
130 
140 
150 
1 60 


170 

180 
1 90 


CLS 

PRINT "DECOLLO ASTRONAVE” 
LET G=INT<RND(1>*20+1) 

LET U-INT<RND(1)#40+1 ) 

LET R = G*W 

PRINT "GRAVITA 7 ;G 
PRINT "PER FAVORE FORNISCI 
LA FORZA" 

FOR C=1 TO IO 
INPUT F 

IF F >R THEN PRINT "TROPPO 
GRANDE" 

IF F< R THEN PR 
IF F=R THEN G( 


IF C<>10 THEN 
NEXT C 
PRINT 

PRINT "HAI 
SBAGLIATO" 


PRINT 

HANNO" 

STOP 

PRINT 

PRENDI 


'GLI ALIENI 


BENE 

0" 



Quando batti un programma sul computer devi premere il tasto RETURN (o ENTER, o 
NEWLINE, a seconda del computer) al termine di ogni riga. In tal modo il computer 
inserisce la riga nella propria memoria ed è pronto a ricevere la successiva. Dopo aver 
scritto tutte le righe del programma, batti RUN (esegui), e il computer eseguirà le 
istruzioni. 



se batti una riga non preceduta da un 
numero, il computer esegue l’istruzione 
non appena premi RETURN (o ENTER, o 
NEWLINE): si tratta di un "comando 
diretto”. Per esempio, per dire al 
computer di mostrare le righe di un 
programma che hai inserito, devi battere 
LIST (elenca) come comando diretto. Per 
cancellare quanto appare sullo schermo, 
sulla maggior parte dei computer devi 
4 battere CLS. 


Quando batti i programmi devi stare 
molto attento, perché se scrivi male una 
parola del BASIC o una lettera, un 
numero o un segno di punteggiatura, il 
computer non è in grado di eseguire le 
istruzioni. Un errore in un programma 
viene chiamato ”bug” (baco); la maggior 
parte dei bug sono errori di battitura, 
anche se talvolta si tratta di errori logici 
che possono portare a risultati 
sorprendenti. 




































GUIDA AL BASIC 

Le pagine che seguono sono una guida che mostra 1 principali comandi 
del BASIC e come utilizzarli. Se hai un computer, è bene che tu 
controlli sul suo manuale perché alcuni comandi variano leggermente a 
seconda dei computer. 


PRINT ► 

(Stampa) Ordina al computer di mostrare 
qualcosa sullo schermo. Le lettere e i simboli 
devono essere fra virgolette, mentre per i 
numeri non è necessario, come mostrano gli 
esempi qui a destra. 

Tali esempi non contengono numeri di riga, 
quindi il computer esegue ogni istruzione non 
appena premi RETURN: mostrerà (o stamperà, 
come si dice abitualmente) sullo schermo 
esattamente quello che hai scritto fra 
virgolette, compresi eventuali spazi. Il 
comando PRINT da solo dice al computer di 
saltare una riga. 



PO u estaTrìga vuoteTè stata 
prodotta dal comando 
PRINT da solo su una riga 
ogramma. 


]PRINT "TOPI" 

Lr _ J 


I calcoli ► 

Puoi servirti di PRINT anche per mostrare i 
risultati dei calcoli. Per l’addizione e la 
sottrazione il computer utilizza i segni normali, 
mentre usa * per la moltiplicazione e / per la 
divisione. SQR(N) è l’istruzione per trovare la 
radice quadrata di un numero N, mentre t, o A, 
o anche **, indica l’elevazione a potenza. Per 
esempio, 3 t 2 significa 3 elevato a 2, o 3 al 
quadrato. 

Nei calcoli con più operazioni, le 
moltiplicazioni e le divisioni vengono sempre 
eseguite prima delle addizioni e delle 
sottrazioni. Perché l’ordine sia diverso puoi 
usare le parentesi; se ci sono molte parentesi 
le une dentro e altre, il computer inizia dalle 
più interne. 



Le parentesi fanno 
eseguire i calcoli 
nell’ordine che vuoi. 




Virgole e punti e virgola ► 

Determinano la posizione sullo schermo del 
carattere successivo: un punto e virgola dice 
al computer di non lasciare spazi, mentre una 
virgola gliene fa lasciare qualcuno (il numero 
varia a seconda dei computer). 

Alcuni computer richiedono che una virgola o 
un punto e virgola separi i comandi PRINT dai 
relativi dati e variabili Oettere che 
rappresentano informazioni immagazzinate 
nella memoria). Prova gli esempi sulla destra 
per vederne il risultato sul tuo computer. 




PRINT 

ATTACCATO" 
ATTACCATO E 


PRINT "TOT ALE=" 
TOTALE-34 
PRINT "TOTALE”" 
TOTALE= 34 

PRINT 12,24 
12 24 

UHM 
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Variabili ► 

Le informazioni sulle quali il computer lavora 
sono i “dati”. Quando fornisci al computer un 
dato, gli devi dare anche un’etichetta, 
chiamata “variabile”. Quando vuoi che un dato 
venga sottoposto a una operazione, vi devi far 
riferimento tramite la variabile. “Variabile” 
deriva dal fatto che il dato cui si riferisce può 
variare durante l’esecuzione del programma. 

Come etichette dei dati numerici si usano 
lettere dell’alfabeto, o una lettera più un 
numero: es. A6. Un dato formato da lettere e 
simboli è una “stringa”; per etichettarla si usa 
una lettera o una lettera e un numero, seguiti 
dal simbolo del dollaro: esempio P$ (letto P 
dollaro, o P stringa), oppure P6$. Le regole sui 
nomi delle variabili sono diverse secondo i 
computer. Controlla sul tuo manuale. 


LET ► 

E’ un modo per fornire dati al computer. LET 
A = 5 dice al computer di inserire nella propria 
memoria il numero 5 e di attribuirgli l’etichetta 
A, mentre LET C$ = "CONIGLI” memorizza 
quella stringa di lettere in uno spazio di 
memoria contrassegnato da C$. Le stringhe 
devono sempre essere fra virgolette. 


INPUT ► 

(Inserimento) Offre un metodo per fornire 
dati al computer durante l’esecuzione del 
programma. INPUT è seguita da un nome di 
variabile e quando il computer incontra un 
comando INPUT, stampa sullo schermo un 
punto interrogativo (o altro simbolo) e aspetta 
che gli si forniscano dati. Se la variabile che 
segue INPUT è di tipo numerico, devi fornire 
dati numerici; se è di tipo a stringa, devi 
inserire una stringa. Con la maggior parte dei 
computer puoi rendere l’istruzione INPUT più 
chiara aggiungendo parole fra virgolette, 
(esempio a destra). Non usare questo mètodo 
con il VIC, perché le parole fra virgolettp 
verrebbero memorizzate con i dati inseriti. 
Quasi tutti i computer vogliono che le parole 
fra virgolette e il nome della variabile siano 
separati da un punto e virgola. 




Su alcuni computer le 
etichette per i numeri 
possono essere intere parole 
e quelle per le stringhe 
parole seguite dal simbolo, $. 


Stai attento a non usare come, 
etichette parole contenenti 
comandi del BASIC, come 
LETTERA, DATA o SPRINTER/ 
il computer rimarrebbe 
confuso. 


CONIGLI 


K 

LET 

A=5 

20 

LET 

C$="CONI GLI 

30 

PRINT A 

40 

PRINT C$ 

RUN 



Si usa PRINT con ' 
il nome di , 

variabile per dire < 
al computer di 
mostrare i dati 
sullo schermo. < 


10 PRINT "COME TI CHIAMI?” 

20 INPUT m 

RUN 

COME TI CHIAMI? 

?GIANNI 


V 


Punto 

interrogativo 
del computer 



La risposta della 
persona viene 
memorizzata in N$. 


10 INPUT “COME TI CHIAMI";Nf 
20 INPUT "QUANTI ANNI HAI";A 
RUN 

COME TI CHIAMI? GIANNI 
QUANTI ANNI HAI?^ 


A21 


Punti 

interrogativi del 
computer. 



La maggior parte dei computer sono provvisti di tasti 
per cancellare i caratteri battuti per errore. Per 
correggere una riga di un programma, puoi riscriverla 
tutta, numero incluso: la nuova riga sostituirà quella che 
conteneva l’errore. Per cancellare una riga 
completamente basta batterne il numero da solo. 




















































READ/DATA ► 


E’ un altro metodo per fornire dati al 
computer. La parola READ è seguita da uno o 
più nomi di variabile, mentre i dati per le 
variabili sono in una o più righe che iniziano 
con DATA e che possono essere in qualsiasi 
punto del programma. Quando il computer 
incontra l’istruzione READ cerca una riga con 
la parola DATA poi inserisce i dati, 
consecutivamente, in ciascuna variabile. I dati 
devono essere separati da virgole e, su alcuni 
computer, le stringhe devono essere fra 
virgolette, mentre certi le richiedono solo se la 
stringa contiene spazi o punteggiature. 


10 READ A*, B, C$, N 


Questo dato è fra 
virgolette perchè 
contiene uno spazio 


100 DATA RUOTE, 2000 

110 DATA "ALBERO MOTORE", 500 




IF/THEN ► 

E’ un metodo per sottoporre i dati a un esame 
e ordinare al computer di fare determinate 
cose secondo il risultato. Usando i simboli qui 
a destra, puoi vedere se due dati sono uguali, 
o se uno è maggiore o minore dell’altro. THEN 
può essere seguito praticamente da qualsiasi 
istruzione; se il risultato dell’esame è negativo 
(falso), il computer ignora il THEN e passa a 
eseguire il resto del programma. 


GOTO ► 

Invia il computer a una determinata riga del 
programma. Di solito viene usato con IF/THEN 
affinché il computer effettui il salto solo se si 
verificano certe condizioni. Stai attento a usare 
GOTO da solo, perché può generare un loop 
continuo (si ha un loop quando una parte del 
programma viene ripetuta più volte), come 
nella riga 185 a destra. Per interrompere 
l’esecuzione di questo programma battere il 
tasto BREAK o ESCAPE (secondo computer.) 


IF A=B THEN PRINT "UGUALE" 

IF XOY THEN PRINT "DIVERSO" 

IF X>Y THEN PRINT "X PIU' GRANDE" 
IF X<Y THEN PRINT "X PIÙ'' PICCOLO" 


IF A$= "NO" THEN STOP -*■ 
IF X+Y=5 THEN LET X=X+1 


Questo dice al computer di 
interrompere l’esecuzione 
del programma. 



100 IF A=5 THEN GOTO 175 


Stai attento a non creare 
loop senza fine, come nella 
riga 185. 



175 PRINT "CONGRATULAZIONI" 

180 PRINT "»*** HAI VINTO ****’’ 
185 GOTO 180 


GOSUB/RETURN ► 

GOSUB invia il computer a una subroutine, una 
parte del programma per l’esecuzione di un 
determinato compito. RETURN alla fine della 
subroutine rimanda il computer all’istruzione 
che segue GOSUB. Se dimentichi RETURN 
ottieni un messaggio di errore. 


REM ► 


Il computer ignora le righe che cominciano 
con REM, il che consente di inserire nel 
programma osservazioni sulle operazioni 
eseguite. 


La riga 540 rimanda il computer all’istruzione 
che segue GOSUB. 




Il computer ignora questa 
riga. 































Loop FOR/NEXT ► 

Le parole FOR, TO e NEXT fanno si che il 
computer ripeta un certo numero di volte una 
parte del programma. Nell’esempio a destra, le 
righe da 10 a 30 vengono ripetute tre volte e 
ogni volta il computer stampa il messaggio 
della riga 20. J è una variabile che conta il 
numero delle ripetizioni; la riga 30 rimanda il 
computer a trovare il valore successivo di J e 
ogni volta che il loop viene ripetuto, a J viene 
aggiunto 1. Quando J = 3 il computer passa a 
eseguire il resto del programma. 

STEP ► 

(Passo) Modifica il modo in cui J conta il numero 
delle ripetizioni. Per esempio, FOR J= 1 TO 10 
STEP 2, fa si che J aumenti ogni volta di 2, 
mentre STEP X lo farebbe aumentare del valore 
immagazzinato in X. Nell’esempio a destra, 

STEP —1 fa contare J all’indietro. 


Nido di loop ^ 

Si possono ottenere ripetizioni molto 
complicate usando loop all’interno di altri 
loop; queste strutture sono i "nidi di loop”. 
Nel programma a destra, ogni volta che viene 
ripetuto il loop dalla riga 10 alla 50, il loop 
dalla riga 10 alla 40 viene eseguito 12 volte. A 
ogni ripetizione del loop interno, la riga 30 
stampa il valore di Jxl. 


10 FOR J 

= 

1 TO 3 

20 PRINT 

II 

CICLO J = 

30 NEXT J 


40 PRINT 



1 RUN 



CICLO J = 

1 


CICLO J = 

2 

( La v 

CICLO J = 

3 

> riga 



10 FOR J=10 T0 1 STEP -1 
20 PRINT J;” GIORNI A NATALE" 
30 NEXT J 

BUON NATALE" 


40 PRINT 
RUN 

10 GIORNI 


A NATALE 


9 GIORNI A NATALE 
8 GIORNI A NATALE 
7 GIORNI A NAT 


'10 

FOR I = 

2 

TO 

12 

120 

FOR J = 

1 

T0 

12 

30 

PRINT J: 

i u 

1 

PER 

n 

'40 

NEXT J 




50 

NEXT I 





Entrambe le parti del 
loop interno devono 
essere contenute nel 
il loop esterno, 
altrimenti si ha un 
errore. 


■ T • " = »' t T 

j 1 j j v 


Loop esterno 



Comandi grafici ► 

Il computer traccia figure sullo schermo 
illuminando i pixel, in cui è suddiviso lo 
schermo. L’istruzione per accendere un 
quadratino (pixel) varia secondo i computer: in 
questo libro viene usata PLOT X,Y (traccia 
X,Y), dove X e Y sono le coordinate del pixel. 
Per tracciare una linea è stato usato DRAW X,Y 
(disegna X,Y). La maggior parte dei computer 
utilizza istruzioni di questo genere, anche se 
alcuni possono richiedere un’istruzione 
aggiuntiva per determinare il tipo di grafica 
desiderato.* 


Il numero di pixel che il 
computer può stampare in 
orizzontale dà la larghezza dello 
schermo, mentre quelli che può 
stampare verso l’alto (o verso il 
basso, su alcuni computer) è 
l’altezza dello schermo. 
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RND ► 

(Da random , casuale) Fa si che il computer 
generi un numero casuale. La forma esatta 
dell’istruzione varia secondo i computers. Su 
alcuni RND(9) produce un numero fra 1 e 9; 
altri, richiedono un’istruzione come INT(RND 
(1) * 9 + 1). Il computer esegue prima le 
operazioni fra parentesi: RND (1) genera un 
numero fra 0 e 1, che viene poi moltiplicato 
per 9, il più alto numero desiderato. Al 
risultato si aggiunge 1, perché la parola INT dà 
un numero intero arrotondato per difetto. 



IPRINT RND<9) 
.141352110 


INT<RND<1)*9+1) 


Alcuni computer 
utilizzano RND(0) 
invece di RND(l) 


IPRINT 


* La maggior parte dei computer dispone di più "modalità”, a seconda del numero di colori e di pixel con cui operano. 
































Matrici ▼ 

Una matrice è un insieme di dati raggruppati sotto un unico nome di variabile. La variabile può essere 
considerata come uno spazio nella memoria del computer suddiviso in molti scaSali. Le matrici possono 
essere monodimensionali, cioè con una sola fila di scaffali, o bidimensionali, con diverse file. Un 
elemento di una matrice monodimensionale viene richiamato tramite il numero dello scaffale in cui è, per 
esempio, nella figura sottostante A$(4) è SUSINA. Per le matrici bidimensionali, devi fornire il numero 
della fila e quello della colonna, per esempio D(3,2) è 15. I numeri fra parentesi sono chiamati "indici”. 


DIM A$(5) e DIM D(4,3) 



Prima di utilizzare una matrice, devi 
comunicarne le dimensioni al computer 
tramite la parola DIM (abbreviazione di 
"dimensioni”), come puoi vedere a destra. Per 
inserire i dati in una matrice puoi usare 
READ/DATA con un loop; per una matrice 
bidimensionale avrai bisogno di un nido di 
loop, come mostra la figura di destra. 
Nell’esempio, I è il numero di fila e J quello di 
colonna. Ogni volta che il loop interno viene 
ripetuto, viene inserito un dato nella 
successiva colonna della fila; quando viene 
ripetuto il loop I, il computer passa alla fila 
successiva. 


LEFT$ e RIGHTS ► 

(Sinistra$ e destra$) Questi comandi 
permettono di operare sui caratteri all’interno 
delle variabili a stringa. Per esempio, 
LEFT$(A$,4) dice al computer di prendere 
quattro caratteri consecutivi di A$ a partire da 
sinistra, mentre RIGHT$(A$,5) fa prendere 
cinque caratteri da destra. I computer Sinclair 
non usano questi comandi; per le istruzioni 
con i Sinclair vedi pagina 11. 

MID$ e LEN$ ► 

(Mezzo$ e lun$, da lunghezza) MID$ dice al 
computer di prendere alcuni caratteri 
dall’interno di una stringa, mentre LEN$ 
comunica da quanti caratteri, compresi segni 
di punteggiatura e spazi, è composta una 
stringa. Per esempio, MID$(K$,2,4) significa: 
prendi quattro caratteri consecutivi di K$ a 
partire dal secondo. Vedi pagina 11 per le 
istruzioni da usare con i computer Sinclair. 


10 LET A$="PAPPAGALLO' 
20 PRINT LEFT$<A$,4) 
25 PRINT LEFT$(A$ ,2) 

30 PRINT 

40 PRINT RI6HT$(Af,5) 

RUN 

PAPP 

PA 

GALLO 



10 LET K*="TRAVESTIMENTO* 

20 PRINT MID$(K$,2,4) 

25 PRINT MID*<K*,4,4> 

30 PRINT 

35 PRINT LENCK*) 

RUN 
RAUE 

'.H a _1 ( Questo e il numero di 

afes?a _J s caratteri in K$. 
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Il BASIC di questo libro 


I programmi di questo libro sono scritti in BASIC "standard", ma certi 
computer talvolta seguono istruzioni un po’ diverse, quindi, in quei casi, 
1 programmi vanno leggermente modificati; a tale proposito, in queste 
due pagine, ci sono alcuni punti cui devi prestare particolare 
attenzione. 

I programmi sono stati scritti per essere eseguibili su molti computer, 
perciò non tengono conto delle eventuali possibilità speciali delle vane 
macchine. Comunque, una volta che hai capito il funzionamento dei 
programmi, li puoi modificare per sfruttare quelle pos sibilit à. 

Nomi di variabile ► 

Su alcuni computer i nomi di variabile possono 
essere costituiti da parole, mentre altri 
accettano solo lettere o lettere e cifre. Per 
esempio, sui computer Sinclair puoi usare 
brevi parole per le variabili numeriche, mentre 
i nomi delle variabili a stringa devono essere 
di una sola lettera. Nei programmi di questo 
libro, per una maggiore chiarezza, quasi tutte 
le variabili sono contrassegnate da parole. Se il 
tuo computer non le accetta, usa solo la prima 
lettera come nome di variabile. 


LET ► 

La maggior parte dei computer non richiedono 
il comando LET nelle istruzioni tipo LET 
FRUTTO$=?“MELA”. Alcuni computer non 
hanno bisogno del THEN nelle istruzioni 
IF...THEN. I programmi di questo libro usano 
tutti sia LET che THEN, però puoi ometterli se 
sul tuo computer non sono necessari. 



Inizializzazione delle 
variabili ► 

Su alcuni computer devi introdurre, o 
inizializzare, una variabile prima di poterla 
utilizzare. Questo significa che devi attribuire 
un valore alla variabile all’inizio del 
programma, come mostrato a destra. Altri 
assumono che il valore iniziale di una variabile 
numerica sia zero e che le variabili a stringa 
siano vuote, senza che tu le debba inizializzare. 
I programmi di questo libro comprendono 
righe di inizializzazione, che puoi omettere se 
il tuo computer non le richiede. 
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INPUT ► 

La maggior parte dei computer accettano 
parole fra virgolette insieme a un comando 
INPUT* ma ci sono differenze per quanto 
riguarda la nacessità di un punto e virgola 
prima della variabile di INPUT e il lasciare 
automaticamente uno spazio fra le parole e i 
dati inseriti. Per scoprire come si comporta il 
tuo computer, fai esperimenti o consulta il 
manuale. 


10 INPUT 
20 PRINT 


'COME TI CHIAMI 
'CIAO H ;N* 



Con alcuni computer è 
necessario inserire uno 
spazio fra le virgolette, 
perché i dati non siano 
attaccati alle parole. 


Non usare questo metodo con il computer VIC, perché le parole verrebbero inserite nella variabile, insieme ai dati. 
































DATA 

100 DATA 
110 DATA 
120 DATA 


TOPO, GOBLIN, SORCIO 
GNU, "ORSO BIANCO" 

"CERVO, ROSSO", "PANTERA, NERA", GIRAFFA 



Virgolette per i 
dati che 
comprendono 
spazi e 

punteggiatura. 


Stai particolarmente attento nell’inserire le 
righe con DATA: ciascun dato dev’essere 
separato dal successivo da una virgola ed è 
molto facile commettere errori. Alcuni 


computer richiedono che i dati costituiti da 
parole siano tra virgolette, mentre altri 
vogliono le virgolette solo se i dati 
comprendono spazi o segni di punteggiatura. 


^ Righe con più istruzioni 


500 PLOT 40,1 : DRAW 1,1 

180 IF A=10 THEN PRINT "GIUSTO”: GOTO 100 




Con la maggior parte dei computer è possibile 
inserire su un’unica riga più istruzioni, 
separate da due punti, come mostrato sopra. 
Questo metodo occupa meno spazio nella 
memoria e può rendere i programmi più 
leggibili. Se il tuo computer non accetta righe 


con più istruzioni, scrivi ogni istruzione in una 
riga distinta. Se intendi inserire nei tuoi 
programmi righe con più istruzioni, stai attento 
quando le metti dopo IF...THEN, perché 
verranno eseguite solo se la condizione di IF è 
vera. 



riND e comandi grafici 


PLOT X,Y 


INT(RND(1)*N +1) 


DRAW X,Y 


Questi comandi variano secondo i computer. 
Nei programmi di questo libro, l’istruzione che 
genera un numero casuale fra 1 e N (dove N è 
un numero qualsiasi) è INT(RND(1)*N + 1). I 
comandi grafici sono PLOT X,Y per tracciare 


un punto e HLIN XI,Y1 TO X2,Y2 per una 
linea. Queste istruzioni andranno sostituite da 
quelle del tuo computer e può anche darsi che 
tu debba aggiungere un’istruzione che 
specifichi il tipo grafica da utilizzare. 


I computer Sinclair 
e le stringhe 

I computer Sinclair gestiscono le stringhe 
in un modo non standard: non usano LEFT$ 
RIGHT$ o MID$ ma va loro detto 
esattamente quali caratteri della stringa 
devono prendere. 

Per esempio, su un computer Sinclair 
PRINT A$ 1 TO 4) equivale a PRINT LEFT$ 
A$,4) e PRINT A$(4 TO 8) equivale a 
MID$(A$,4,5). Nelle matrici di stringhe, ogni 
stringa deve avere lo stesso numero di 
caratteri (alle più corte puoi aggiungere 
spazi) e ogni carattere della stringa viene 
memorizzato in un compartimento separato 
della matrice. 

(Conversione programmi per Sinclair a 
pagg. 46-47). 































Imparare il Basic studiando i programmi 

Un.buon metodo per imparare il BASIC consiste nello studiare 1 
programmi scritti da altri e vedere come funzionano. Studiando 1 
programmi di questo libro puoi imparare a usare i loop e le stringhe, a 
scrivere semplici programmi di grafica e a ordinare dati. A prima vista 
alcuni programmi sembrano davvero complicati, ma un programma 
complicato non è che una lunga serie di comandi in BASIC disposti in 
modo ordinato. Queste due pagine contengono alcune osservazioni e 
suggerimenti per aiutarti a studiare e a capire 1 programmi. 

Studio di un programma 

La maggior parte dei programmi sono costituiti da più parti (talvolta chiamate routine o moduli) 
per l’esecuzione dei vari compiti. Per esempio, in un programma per un gioco in cui vi siano 
astronavi, una parte del programma disegnerà le astronavi sullo schermo, mentre altre 
registreranno gli attacchi e i colpi andati a segno, controlleranno i livelli del carburante e la 
velocità e stamperanno i punteggi finali. 




3. Calcolo dei livelli di 
carburante e della velocità. 


4. Stampa dei 
punteggi. 


1. Disegno delle 
astronavi. 


2. Registrazione 
degli attacchi e 
dei colpi a segno. 


Il jJrimo stadio nello studio di un programma 
consiste nel cercar di riconoscerne le diverse 
parti e di capire a cosa servono: questo 
fornisce un’idea generale sul suo 
funzionamento. Guarda se ci sono subroutine 
per lo svolgimento di operazioni specifiche e 


grossi salti nei numeri di riga: righe con 
numeri di centinaia o di migliaia spesso 
indicano una nuova parte del programma. 
Talvolta le diverse parti, di un programma sono 
contraddistinte da istruzioni REM. 



Probabilmente la cosa più difficile da capire in 
un programma è la funzione delle variabili. 
Prima di inserire un programma in un 
computer, conviene analizzare il ruolo di 
ciascuna variabile prendendo appunti. Spesso 
12 alcune variabili vengono usate per gli stessi 


compiti, cosi le puoi riconoscere 
immediatamente. Per esempio, di solito le 
lettere I, J, K e L vengono usate per i loop, 
mentre Z e Z$ vengono usate per dati 
necessari solo per un breve periodo. 
























Lancio e correzione degli errori dei programmi 



Dopo aver determinato a cosa servono le 
variabili, inserisci il programma nel computer. 
Poiché i programmi sono scritti in BASIC 
standard, può darsi che alcuni comandi vadano 
modificati per adattarli al tuo computer. 




Fatto questo, prova a lanciare il programma. 
Probabilmente ci sarà qualche bug, quindi 
stampa il listato del programma sullo schermo 
e guarda se ci sono errori di battitura o 
comandi che il tuo computer non capisce. 



Dopo aver trovato tutti i bug, lancia il 
programma qualche volta per vedere come 
funziona. A questo punto conviene 
memorizzarlo su cassetta o su disco, in modo 
da non doverlo più ribattere. 


Adesso ritorna al listato ed esamina ogni riga, 
cercando di capire qual’è il suo compito. 
Cerca brevi routine che possano essere poi 
incorporate nei tuoi programmi. 



LIST 200 

200 LET A*100/B+I 
200 LEI A=10/B+I 



Il comando STOP fa si 
che il computer si 
fermi a questo punto. 


200 LET A=10/B+I 
203 PRINT A 
2OS STOP 


Puoi servirti del computer per capire come 
funziona il programma: prova a modificare il 
valore di una variabile e guarda che 
conseguenze ha sul programma. Apporta solo 
un piccolo cambiamento per volta, in modo da 
poterne determinare gli effetti. Alla fine, 
ricordati di reinserire i valori giusti. 


Puoi anche inserire righe per stampare i valori 
delle variabili, cosi da vedere come cambialo 
durante l’esecuzione del programma. Talvolta 
è utile inserire comandi STOP, per poter 
esaminare il programma a spezzoni, però dopo 
ricordati di cancellarli. Alcuni computer 
dispongono del comando CONTINUE 
(continua), utilizzabile dopo STOP. 















































Uso delle stringhe 

Questo programma mostra come sia possibile far svolgere al computer 
operazioni complicate combinando semplici comandi del BASIC. Il 
programma è di un gioco di individuazione di parole nel quale il computer 
ti chiede una parola, poi stampa le lettere sullo schermo in modo casuale e 
ti domanda quante volte compare la parola. Vengono utilizzati 1 comandi di 
gestione delle stringhe: MID$, RIGHT$ e LEFT$, e 1 numeri casuali * Le 
principali operazioni che il programma deve effettuare sono due: far 
stampare le lettere in ordine casuale sullo schermo e far contare il numero 
delle volte che la parola è stata scritta correttamente. 


TROVA LA PAROLA 
PER FAVORE SCRIVI UNA PAROLA 
BREVE 
?P ANE 


ORA GUARDIAMO SE RIESCI A 
TROVARE LA TUA PAROLA MENTRE 
LE LETTERE 


SCORRONO SULLO SCHERMO 
BATTI RETURN PER INIZIARE 



Y pne:naepaanpnaep 
ANEPEANPEANPANE 
APAEEPNNPPAEPAN 



SCRIVI QUANTE VOLTE PENSI 
LA TUA PAROLA SIA APPARSA 
SULLO SCHERMO ?1 
SBAGL.IATO ! 

L I.A TUA PAROLA E” APPARSA 
VOLTE 




Il programma usa MID$ con un numero 
casuale per scegliere la lettera da stampare. La 
parola è memorizzata in W$. Alla riga 160 
prende un numero casuale fra 1 e la lunghezza 
della parola e lo inserisce in R, poi nella riga 
170 utilizza il numero in R per decidere quale 


lettera prendere da W$: immagazzina la lettera 
in L$ e la stampa sullo schermo con la riga 180. 
A ogni ripetizione del loop dalla riga 150 alla 
220, in R viene immagazzinato un nuovo 
numero e viene scelta una nuova lettera di W$. 


Controllo della parola 




Dopo che il loop dalla riga 150 
alla 220 è stato ripetuto alcune 
volte, CONTROLLO$ è pieno di 
lettere. 


All’inizio del programma il computer riserva 
una zona della memoria chiamata 
CONTROLLO$ e la riempie con tanti asterischi 
quante sono le lettere della parola. Ogni volta 
che prende una nuova lettera casuale, toglie il 


primo carattere di CONTROLLO$ e aggiunge 
la lettera casuale alla fine della stringa (riga 
200). Nella riga 210 confronta CONTROLLO$ 
con W$ e se le lettere sono nello stesso ordine 
aggiunge 1 a N. 


* Per modificare il programma per i computer Sinclair (Timex) vedi pagina 46. 























































































Gioco di individuazione delle parole 


10 HOME ]----- 

20 PRINT "TROVA L.A PAROLA": PRINT ]- 

30 LEI CHECK*=""1 
40 L.ET N =:: 0 J 

45 PRINT "PER FAVORE SCRIVI UNA PAROLA}, 
BREVE" 

50 INPUT m 

60 POR 1=1 TO L.EN <W$> ' 

70 LET CHECK*==CHECK*+"*" 

80 NEXT I J- 


Usa il comando del tuo computer 
per cancellare lo schermo. 

Questa è una riga con due 
istruzioni, separate da due punti. 

Introduce variabili vuote che 
verranno utilizzate in seguito. 

Ti chiede la parola e la inserisce in 
W$. 


90 PRINT 

•100 PRINT "ORA GUARDIAMO SE RIESCI A 
TROVARE" 

110 PRINT "LA TUA PAROLA MENTRE LE 
LETTERE" 

115 PRINT "SCORRONO SULLO SCHERMO" 
120 INPUT "BATTI RETURN PER' 

INIZIARE" 


130 

HOME 



140 

REM 

S 

CELTA 

150 

FOR 

1 = 

1 ro 

160 

LET 

R= :: 

INT 

170 

LET 

L$ 

= MID 



<•1 >* LEN <W*>+1 ) ]-T 


Loop che viene eseguito un numero 
di volte pari a quello delle lettere 
nella parola, cioè LEN(W$). A ogni 
ripetizione del loop, viene inserito un 
* in CHECK$. 

La riga 120 ordina al computer di 
aspettare che tu batta qualcosa. Sulla 
maggior parte dei computer basta 
che tu batta RETURN; sulTOric batti 
un tasto, poi premi RETURN. 


Crea un loop dalla riga 150 alla 220 
da ripetersi un numero di volte pari a 
50 per il numero delle lettere nella 
tua parola. 

Sceglie un numero casuale fra 1 e la 
lunghezza della parola e lo mette in R. 

Usa il numero in R per scegliere una 
lettera di W$ e la immagazzina in L$. 



ISO PRINT L.$ + " ";]- 

190 REM CONTROLLO DELLA PAROLA 
200 LET CHECK RIGHT$ (CHECK$, LEN 
<W$)~ Ì ) + L.$ 

210 IF CHECK$="W$ THEN LET N-N+l]- 

220 NEXT I 


Stampa la lettera in L$ seguita da uno 
spazio. Il punto e virgola fa si che il 
computer stampi tutte le lettere sulla 
stessa riga. 

Significa: prendi LEN(W$>1 lettere 
dalla destra di CHECK$, aggiungi la 
lettera in L$ poi rimetti il nuovo 
gruppo di lettere in CHECK$. 

N tiene il conto del numero di volte 
che una parola compare correttamente 


230 

240 

250 


260 

265 

270 


Ecco un buon metodo per far cercare al computer una 
particolare parola fra i dati. Puoi usare questa routine in 
altri programmi. Hai bisogno anche del loop dalla riga 60 
alla 80. 


FOR 1=1 TO 1000 1 
REM NON FA NIENTE] 
NEXT I 


HOME 
PRINT 
CHE LA 
PRINT 


Alcuni computer sono più veloci di altri, 
quindi questo valore va scelto a seconda 
del computer. Un numero più alto alla 
riga 230 produce una pausa più lunga. 


"SCRIVI QUANTE VOLTE PENSI 
"TUA PAROLA SIA APPARSA SULLO SCHERMO' 


E’ un loop di "rallentamento”. Non ci 
sono istruzioni da eseguire, ma fa si 
che il computer faccia una pausa di 
qualche secondo mentre passa in 
rassegna tutti i valori di I. 



275 INPUT G]_ 

280 PRINT 

290 IF G-'N THEN PRINT "GIUSTO!" 

300 IF GON THEN PRINT "SBAGLIATO!" 
310 PRINT "LA TUA PAROLA E” APPARSA 
";N;" VOLTE" 


Memorizza la tua risposta in G. 

Confronta G con N (la variabile che il 
computer ha utilizzato per contare il 
numero delle parole corrette). ,, 































Loop e numeri casuali 


otoo 


Questo programma è un gioco 
spaziale che mette alla prova le tue 
capacità di calcolare a mente. 
Mostra alcuni dei modi in cui puoi 
usare i loop e i numeri casuali e 
contiene alcuni effetti speciali sullo 
schermo, che puoi incorporare nei 
tuoi programmi. Si tratta di un 
programma piuttosto lungo, ma la 
maggior parte delle righe 
contengono istruzioni PRINT per 
costruire la scenografia del gioco. 


È IL COMPUTER DELLA NAVE CHE PARLA... 
SIAMO IN DIFFICOLTÀ. NON RIESCO A 
CALCOLARE IL FLUSSO DI CARBURANTE. 

NELL'ACCOSTARE ALLA TERRA DOVRAI 
EFFETTUARE I CALCOLI TU. 

POSSO DIRTI DI QUANTO CARBURANTE 
ABBIAMO BISOGNO A OGNI STADIO, E IL 
PERIODO IN CUI DEV'ESSERE UTILIZZATO. 

DEVI DIVIDERE IL CARBURANTE PER IL TEMPO 
COSI DA FORNIRMI LA MEDIA A CUI LA NAVE 
DEVE CONSUMARE IL CARBURANTE. 


Gioco di emergenza spaziale 


m 

1 1 5 

l'BFh 

PRINT 

•ì 1 8 

PRINT 

il 20 

POR J 

I l 25 

REM N 

VI 30 

NE XI J 

135 

NEXT I 

1 40 

HOMI- 

•i r .n 

POR T 

155 

PR INT 


¥: ¥: ¥: ¥: " ; 

J 160 

POR J 

1165 

REM N 

VI 70 
\l 80 

22 

XX 

190 

HOME 

200 

PRINT 
CHE PAR 

21 0 

PR INI 

220 

P R I NT 

o n 

RIESCO 
CARBURA 

i:> D T kl Y 

240 

1 K .1. IY 1 

PRINT 


TERRA D 

250 

PRINT 

260 

PRINT 
CARB IJ 
OGNI 
CUI D 

270 

PRINT 

280 

PRINT 



:l. computer della nave 


SIAMO IN DILEICOLTA * 
CALCOLARE IL ELUSSO 


NON 
DI 


" NELL 


ACCOSTAMENTO ALLA 
FARE I CALCOLI TU. 


290 
300 
31 0 
320 
330 
345 
3 5 0 


"POSSO DIRTI DI QUANTO 
RANTE ABBIAMO BISOGNO A 
STADIO, E IL PERIODO IN 


DEVI DIVIDERE IL.. 

C A R B U R A N T E P E R 11... T E M P 0 C 0 SI ” 
DA FORNIRMI LA MEDIA A CUI LA 
NAVE DEVE CONSUMARE IL 
CARBURANTE." 

PRINT 

'ECCO UN ESEMPIO" 

’.. . '] - 

'CARBURANTE ==24" 

TEMP0--6" 


Usa il comando del tuo computer 
per cancellare lo schermo. 

Le righe da 110 a 135 formano un 
nido di loop. Ogni volta che viene 
eseguito il loop I, viene stampato 
l’avvertimento delle righe 115-118, 
poi viene ripetuto dieci volte il 
loop J. Il loop J è un loop di 
rallentamento che fa compiere una 
pausa al computer per darti il 
tempo di leggere l’avvertimento. 

Le righe da 150 a 180 funzionano 
come quelle da 110 a 135. 

La parte successiva del programma 
stampa sullo schermo una 
descrizione del gioco. Se le frasi 
sono troppo lunghe per il tuo 
schermo, inserisci altre righe con 
PRINT. 


PRINT da solo fa saltare righe. 


PRINT 
PRINT 
PRINT 
PR I NT 
PRINT 
INPUT 


CARBURANTE PER 
RAPIDAMENTE LA 

360 PRINT 

370 IL RISP < > 4 

PROVA DI NUOVO, 
VITA": GOTO 350 
380 HOME 


PER FAVORE DIVIDI IL 

IL TEMPO E BATTI 
RISPOSTA "jRISP 


THEN 
NE VA 


PRINT 

DELLA 


" NOT¬ 
TUA J 


'Se il tuo computer fa scorrere il testoV 
prima che tu abbia fatto in tempo a 
leggerlo, cancella parte delle righe 
che contengono solo PRINT. 


Sottolinea le parole della riga 
precedente. 

La tua risposta viene memorizzata 
in RISP. 


Il GOTO viene eseguito solo se 
RISP è diversa da 4. (Se il tuo 
computer non consente le righe 
con p'iu istruzioni, ripeti IF...THEN 
con un GOTO su un’altra riga.) 



































Questo gioco non ha né 
grafica né effetti sonori, 
però puoi inserirli 
aggiungendo le istruzioni 
del tuo computer. ^ 




ATTENZIONE 
ALLARME ROSSO 


CIRCUITO DANNEGGIATO 


* 




390 

395 

400 

405 

410 

420 

430 

440 

450 


460 

470 


FRINÌ "BENE. ORA DEVI DARE TUTT 
LE RISPOSTE GIUSTE" 

FRINÌ "ALTRIMENTI LA NAVE 
R IM A R R A ' D A N N E G GIA T A " 

FRINÌ "SE COMMETTI PIU' DI DUE- 
ERRORI „ " 

P R IN T ' "SA R E M 0 T U T TI DIS T RIJ T TI " 


Aspetta che tu batta RETURN. (Con 
— il computer Oric, batti un tasto, poi 
premi RETURN.) 


PR IN T¬ 
IME UT "BATTI RETURN PER 
C 0 M U NIC A R MI Q U A N D 0 S EI P R 0 N T 0 " 
HOME 

P R IN T " A T T fi! N T 0 P A R TI AMO! " 

LEI DANNO = 0]_______ 



POR CARBURANTE 
120 

LEI T = INI ( 


72 


RND 


0 IO 120 STEP 
( ì ) « 5 + 2 ) h 


Introduce una variabile chiamata 
DANNO. 

CARBURANTE è una variabile per 
contare le ripetizioni dei loop; viene 
anche usata nei calcoli. Alla riga 460 
CARBURANTE = 720, dopo di che 
diminuisce di 120 a ogni ripetizione. 
Questi valori sono stati scelti in modo 
che la risposta alla somma nella riga 
520 sia sempre un numero intero. 


Genera numeri casuali fra 2 e 6, per i 
quali il valore di CARBURANTE è 
divisibile esattamente. 


480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

<600 

610 

620 


630 

640 

650 

,660 

670 

(68 0 
.1690 
'700 
10 


720 


"CAREURANTE-" 
"TEMPO-" SPI¬ 


GAR FURANTE 
ORA DAMMI LA 


THEN 

DANNO 


DANNO #*## 


PR IN I 
PRINT¬ 
ER INT¬ 
ERINI 
LEI R 
INPUT 

IF RISE = R 
LEI DANNO = 

FRINÌ 

FRINÌ "***# 

P RI NT 

IE DANNO > 2 THEN 
NEXT CARBURANTE 
HOME 

P RIN T "C0N GR A TU LAZIONI 
STATO BRADO QUANTO ME. 

A T T e:: R R A ì 0 S e- N Z A D A N NI ! " 
GOTO 720 
HOME 
E OR I 
PR INI 
POR J ” 

SO) 

FRINÌ " 

NEXT J 
NEXT I 
PRIMI : 

DISTRUTTA 
END 


CARBURANTE 


T 

MEDIA 


GOTO 600 

+ 1 ]- 


yR 




GOTO 640 y 


>E I 


SEI 


" * " ? 
= -1 


IO 20 
TO INI 


RND (1) « I + 


FRINÌ' "LA NAVE E 


Il computer esegue una somma con i 
valori di CARBURANTE e T e 
memorizza la risposta in R. Se la tua 
risposta è giusta, il computer va alla 
riga 600. 

La variabile DANNO tiene il conto 
dei tuoi errori. 

Se commetti più di due errori il 
computer esce dal loop e passa 
alla riga 640. 

Questa riga viene stampata solo se 
commetti meno di due errori. 


Questo nido di loop traccia sullo 
schermo un gruppo casuale di 
asterischi. A ogni ripetizione del loop 
I, il computer stampa un asterisco, 
dopo di che il loop J fa lasciare un 
numero casuale di spazi. 












































Un database calcistico 

Un database (leggi: databeis) è costituito da molti dati immagazzinati in un 
computer e disposti in modo che il computer possa raggrupparli e 
confrontarli, affinché una persona che utilizza il database possa ottenere 
informazioni utili in un tempo molto'breve. Le pagine che seguono presentano 
un programma per un database relativo alla Coppa del Mondo di calcio. È un 
piccolo database tramite il quale puoi trovare quale squadra ha vinto la 
Coppa del Mondo in qualsiasi anno a partire dal 1930, o in quale anno una 
squadra ha vinto la Coppa. Alla fine del programma ci sono alcune idee per 
trasformare il database per inserirvi informazioni diverse, come l'indice di una 
rivista o i dati per un’indagine naturalistica. 

Un programma di database è composto da tre parti principali: un modo 
adeguato per immagazzinare le informazioni, uno per ricuperarle e un. 

"menu”. Un menù è un elenco delle vane operazioni che un programma può 
eseguire, per la scelta di quella desiderata. Il programma dovrebbe inoltre 
essere "user-friendly" (amichevole verso l'utente), cioè in grado di fornire 
alla persona che lo usa istruzioni chiare, senza interrompersi bruscamente se 
viene commesso un errore. 


Esempi di utilizzazioni del database 


^ER FAVORE SCRIVI IL NOME DELLA 


r i 

SQUADRA, 0 BATTI 'MENU' PER 


PER FAVORE SCRIVI L'ANNO, 

VEDERE NUOVAMENTE L'ELENCO 


0 BATTI 

GERMANIA OVEST 


MENU' PER VEDERE NUOVAMENTE 



L'ELENCO 1938 

GERMANIA OVEST 



HA VINTO LA COPPA DEL MONDO NEL. 


NEL 1938 ITALIA 

1954 FINALISTA NEL 1966 



HA VINTO L.A COPPA DEL MONDO NEL 


HA VINTO L.A COPPA 

1974 FINALISTA NEL 1982 





BATTI RETURN PER IL MENU' 

^BATTI RETURN PER IL MENU' 


L_ J 


Memorizzazione delle informazioni 



1930 

1934 

1938 

1950 

1954 

1958 

1962 

1966 

1970 

1974 

1978 

1982 

URUGUAJ 

1 

0 

0 

1 

0 

0 

0 

0 

0 

0 

0 

0 

ARGENTINA 

2 

0 

0 

0 

0 

0 

0 

0 

0 

0 

1 

0 

ITALIA 

0 

1 

1 

0 

0 

0 

0 

0 

2 

0 

0 

1 

CECOSLOVACCHIA 

0 

2 

0 

0 

0 

0 

2 

0 

0 

0 

0 

0 

UNGHERIA 

0 

0 

2 

0 

2 

0 

0 

0 

0 

0 

0 

0 

GERMANIA OVEST 

0 

0 

0 

0 

1 

0 

0 

2 

0 

1 

0 

2 

BRASILE 

0 

0 

0 

0 

0 

1 

1 

0 

1 

0 

0 

0 

SVEZIA 

0 

0 

0 

0 

0 

2 

0 

0 

0 

0 

0 

0 

INGHILTERRA 

0 

0 

0 

0 

0 

0 

0 

1 

0 

0 

0 

0 

OLANDA 

0 

0 

0 

0 

0 

0 

0 

0 

0 

2 

2 

0 


Per mettere in collegamento fra loro squadre e 
anni, il programma utilizza una tabella e cerca 
una squadra o un anno proprio come faresti tu. 
La cifra 1 indica che la squadra ha vinto la 
Coppa, mentre un 2 indica che la squadra è 
stata finalista. Scorrendo lungo le righe e le 


colonne, puoi vedere in che anno una squadra 
ha vinto o è stata finalista. Il programma 
esegue queste operazioni automaticamente e, 
naturalmente, se i dati sono molti, è molto più 
rapido di una persona. 
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Costruzione della tabella 

Usando le matrici, è molto facile costruire la versione su computer della tabella della pagina 
accanto. Una matrice è una variabile in grado di contenere una quantità di dati distinti. 



Occorrono due matrici monodimensionali: una 
con 12 scompartimenti per contenere l’elenco 
degli anni e uno con 10 per le squadre. Nel 
programma vengono chiamate ANNO e 
SQUADRES. 


Come il computer si serve 
della tabella 


Per contenere tutti i dati della tavola ci vuole 
una matrice bidimensionale, con 10 file e 12 
colonne, che nel programma viene chiamata M 
(per matrice). 



Per trovare quale squadra ha vinto la Coppa 
del Mondo per esempio, nel 1938, il computer 
cerca 1938 nella matrice ANNO e nota che è 
nello scompartimento 3. Allora guarda nella 


colonna 3 di M e quando trova un 1 o un 2 
nota il numero di riga corrispondente e lo 
utilizza per trovare il nome della squadra in 
SQUADRA$. 
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Il programma del database 

Il programma ha sette parti principali, ognuna 
delle quali fa capo a una subroutine distinta. 
Le prime righe dicono al computer quale 
subroutine utilizzare e il computer vi torna 
dopo aver eseguito la subroutine. 

Le subroutine che iniziano alle righe 200 e 300 
servono a stampare l’elenco delle squadre e 
gli anni. Le righe 400-500 servono a trovare in 
quale anno una determinata squadra ha vinto 
la Coppa, mentre le righe 500-600 trovano 
quale squadra ha vinto la Coppa in un 
determinato anno. Tutti i dati sono elencati 
verso la fine del programma, seguiti dal menù. 

Di solito è meglio mettere i dati verso la fine 
del programma e la parte operativa del 
programma all’inizio. 


Il menu 




MENU r 
#***#»** 



PER VEDERE L'ELENCO DELLE SQUADRE 
BATTI 1 

PER VEDERE L'ELENCO DEGLI ANNI 
BATTI 2 

PER VEDERE IL NOME DI UNA SQUADRA 
BATTI 3 

PER INSERIRE UN ANNO BATTI 4 
PER TERMINARE BATTI 5 
BATTI IL NUMERO CHE HAI SCELTO 
POI PREMI RETURN 



Il menù è la parte del 
programma che ti dice cosa 
può fare e come utilizzarlo. 

In questo caso, per scegliere 
devi battere un numero. Il 
numero è memorizzato nella 
variabile C e il computer lo 
utilizza per richiamare la 
subroutine giusta per 
svolgere il compito 
desiderato. 



La riga 120 del programma determina la 
subroutine che il computer deve utilizzare. La 
lettera C è la variabile che contiene il numero 
che hai battuto dopo aver visto il menù. Il 
computer usa il numero in C per decidere a 
quale subroutine andare: se C = 1 va alla prima 
subroutine dell’elenco della riga 120, cioè a 
20 quella che comincia alla riga 200. Se C = 2 va 


alla seconda, cioè alla riga 300; se C = 3 va alla 
terza ecc. ON GOSUB è un utile comando del 
BASIC che invia il computer a diverse 
subroutine a seconda del risultato di un 
esame. Se sul tuo computer il comando ON 
non è disponibile, puoi usare una serie di 
istruzioni IF...THEN, per esempio, IF C = 1 
THEN GOSUB 200. 






























A cosa servono le variabili 


ANNO 

SQUADRA$ 

M 

La matrice in cui sono 
inseriti gli anni. 

La matrice in cui sono 
inseriti i nomi delle 
squadre. 

La matrice 
bidimensionale che 
contiene i dati. 

C 

Z$ 

X$ A 

La variabile in cui viene 
inserito il numero che batti 
dopo aver visto il menù. 

Il nome della squadra o 
l’anno che hai scelto. 

Dati temporanei. p 


Se sul tuo 
computer i nomi 
delle matrici non 
possono essere 
costituiti da 
parole, usa solo 
le lettere iniziali. 



Il programma 


10 

DIM SQUADRAMMO 


M ( 1 0,1 2 ) 


100 

GOSUB 1000: 

REM 

110 

GOSUB 2000: 

REM 


DIM ANNO(12) 



1 20 
•130 
200 

210 

220 


ON C GOSUB 200,300,AGO,500,600 J- 

GOTO 110 

REM SUBROUTINE PER STAMPARE L'ELENCO 
DELLE SQUADRE 
HOME 

PRINT "ELENCO DELLE SQUADRE": PRINTl 


Dice al computer quanto spazio 
lasciare per le matrici. 

Quando lanci il programma, la 
prima cosa che il computer fa è 
di andare alla subroutine alla 
riga 1000 per leggere i dati. 

_ Dopo va alla riga 2000 per 
stampare sullo schermo il menù. 


Questo lo invia alla subroutine 
giusta per svolgere l’operazione 
che hai scelto sul menù. Dopo 
aver eseguito la subroutine, il 
computer toma alla riga 130 che 
lo rimanda alla 110 per 
ristampare il menù. 


V 


Sottolinea le parole ELENCO 
' DELLE SQUADRE. 


230 F0R I = 1 T0 10: PRINT SQUADRAM(I): NEXTf- Loop per stampare i nomi delle 
I J squadre. A ogni ripetizione del 

loop, I aumenta di 1 e il 
computer stampa il nome 
successivo in SQUADRA$. 


235 

240 

250 


PRINT 



Fa si che il computer aspetti 
che tu batta RETURN prima di 
passare alla riga successiva. 
(SuU’Oric devi battere un tasto.) 


DEGLI ANNI 
310 HOME 

320 PRINT "ELENCO DEGLI ANNI": PRINT 


330 FOR I =1 TO 12: PRINT ANNO(I): NEXT I_ Loop per stampare gli anni. 

335 PRINT J 

3-40 PRINT "NEL 1942 E NEL 1946 LA COPPA«NON 
E' STATA ASSEGNATA" 

345 PRINT 

350 INPUT "BATTI RETURN PER IL MENU'"; 

360 RETURN 



Per modificare questo programma perché sia eseguibile sui computer Sinclair (Timex) vedi pagina 46. 

























400 REM SUBROUTINE PER SCEGLIERE L.E SQUADRE 
405 HOME 


410 INPUT "PER FAVORE SCRIVI IL. NOME DELLA 
SQUADRA, 0 BATTI 'MFNU' PER VEDERE 
NUOVAMENTE L'ELENCO ";Z* 


41! 


H 


In Z$ viene immagazzinato il 
nome di una squadra o la parola 
menu”. 


IF Z$ 


"MENU" THEN RETURN 


420 

FOR I = 

1 TO 10 


425 

IF Z$ = 

SQUADRA$ <I) THEN 

GOTO 440 

430 

NEXT I 


- 

435 

PRINT : 

PRINT "SQUADRA NON 

TROVATA 


440 

445 


FAVORE PROVA DI NUOVO' 


PRINT 

PRINT Z$ : PRINT ]- 


PRINT 


GOTO 410 


Se Z$ = MENU il computer toma 
alla riga 130 e poi alla 110 per 
stampare il menù. 


Loop per confrontare Z$ con tutti 
i nomi in SQUADRA$. Quando 
trova un nome uguale a Z$ va alla 
riga 440. 


-i Questa riga ti avverte nel caso tu 
_scriva male il nome di una 


J squadra o tu ne indichi una che 
non è nel database. 


Stampa il nome della squadra. 



450 

FOR J =• 1 

TO 12 

*455 

IF M(I,J) 

= 1 THEN 


COPPA DEL 

MONDO NEL 

460 

IF M(I,J > 

= 2 THEN 


"p ANNO(J): 

PRINT 

465 

NEXT J 


470 

PRINT 


480 

INPUT "BATTI RETURN 

490 

RETURN 



PRINT "HA 
"PANNO(J): 
PRINT 


LA 


VINTO 
PRINT 
FINALISTA NEL 


Loop per far si che il computer 
trovi nella matrice i particolari 
relativi alla tua squadra. I è il 
numero di fila. Il valore di I viene 
stabilito dal loop alle righe 420- 
430 ed è l’indice (il numero che 
ne indica la posizione nella 
matrice) che la tua squadra ha in 
SQUADRA$. J è il numero di 
colonna e ogni volta che il loop 
viene ripetuto, il computer 
guarda nella colonna successiva 
accanto alla fila I. 



INPUT "PER FAVORE SCRIVI L'ANNO, 0 BATTI 1 Come la riga 410, ma questa volta 


500 

REM SUOR 

505 

HOME 

510 

INPUT "P 
'MENU' PE 

515 

IF Zìi = 

520 

FOR I = 

525 

IF VAL 

530 

NEXT I 

535 

PRINT : 
DI NUOVO" 


'MENU" THEN RETURN 


1 T0 12 


ANNO <I) THEN GOTO 540 


PRINT "ANNO NON TROVATO - PROVA 


PRINT 


GOTO 


Loop per confrontare Z$ con tutti 
gli anni di ANNO. Non puoi 
confrontare una variabile a stringa 
con una variabile numerica, quindi 
devi usare il comando VAL, che 
dice al computer di considerare 
numeri i caratteri di Z$. 















540 
550 
5 5 5 

560 


PRINT 
FOR J = 1 
IF M ( J , I ) 
HA VINTO 
NEXT J 


PRINT "NEL 
TO 10 
= 1 THEN 
LA COPPA" 


;Z$: PRINT 


PRINT SQUADRAI(J) 


565 PRINT 


570 


Questo loop funziona come le 
1 righe 450-4Q0, ma questa volta il 
"L numero della colonna è 
J determinato dall’indice dell’anno 
in ANNO e il numero di fila 
cambia a ogni ripetizione del 
loop. 


INPUT "BATTI RETURN PER IL. 
MENU " ; X$ 

580 RETURN]- 1 - 



600 REM SUBROUTINE PER 
610 INPUT "FINE - SICURO 
620 IF X$ < > "S" THEN 


TERMINARE ] 
(S/N) ";X* h 
RETURN END J 


1000 

1010 

1020 

1030 

1100 

1110 
1115 
1120 
1125 


1200 
1 205 
1210 



Controlla che tu voglia veramente 
smettere. Se batti S, il comando 
del BASIC END dice al computer 
di terminare; se batti qualsiasi 
altra cosa, il computer toma alla 
riga 130. La parola ELSE 
rappresenta un utile modo per 
aggiungere altre condizioni alle 
istruzioni IF...THEN. Per saperne 
di più su questo argomento, volta 
pagina. 


FOR I 
DATA 
DATA 
DATA 


* 1 TO 12: READ ÀNNO(I) 
1930,1934,1938,1950 
1954,1958,1962,1966 
1970,1974,1978,1982 


i ¥ 


NEXT I Loop per inserire i dati in ANNO. 


FOR I = 1 
NEXT I 


TO 10: READ SQUADRACI 


’ = } 


Loop per inserire i dati in 
SQUADRA$. 


DATA 

DATA 

DATA 

DATA 


URUGUAY, ARGENTINA 
ITALIA, CECOSLOVACCHIA, 
GERMANIA OVEST, BRASILE 
SVEZIA, INGHILTERRA, OLANDA 


UNGHERIA 


FOR 1=1 TO 10: 
READ M(I,J) 

NEXT J: NEXT I 


Nido di loop per inserire i dati 
nella matrice bidimensionale M. 


1215 

RETURN 

1220 

DATA 

1230 

DATA 

1240 

DATA 

1250 

DATA 

1260 

DATA 

1270 

DATA 

1280 

DATA 

1290 

DATA 

1300 

DATA 

1310 

DATA 



0 , 0 , 

0 , 0 , 

0 , 0 , 

0 , 0 , 

0 , 0 , 

0 , 0 , 


IL LISTATO CONTINUA NELLA PAGINA SUCCESSIVA 
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2000 

2010 


REM SUBROUTINE PER STAMPARE IL. MENU' 
HOME 


2020 

PRINT 


MENU'" 

2030 

PRINT 

~ 

**##" 

2040 

FOR I 

= 1 TO 6: PRINT : -, 


NEXT I 


r 

2050 

PRINT 

BATTI 

"PER 

1 " 

VEDERE L'ELENCO 

2060 

PRINT• 



2070 

PRINT 

BATTI 

"PER 

2" 

VEDERE L'ELENCO 

2080 

PRINT 



2090 

PRINT 

"PER 

INSERIRE IL NOME 


SQUADRA BATTI 3" 

2100 

PRINT 



2110 

PRINT 

"PER 

INSERIRE UN ANNO 

2120 

PRINT 



2130 

PRINT 

"PER 

TERMINARE BATTI 

2140 

PRINT 



2150 

PRINT 

"BATTI IL NUMERO CHE 

2160 

INPUT 

"POI 

PREMI RETURN ";C 

2170 

IF C < 

1 OR 

C > 5 THEN PRI 


Qui lascia circa 15 spazi per 
centrare la parola menù sopra 
l’elenco delle scelte. 

Loop per lasciare sei righe vuote. 


180 


"PER FAVORE BATTI UN NUMERO FRA 
1 E 5" : GOTO 2150 
RETURN- 


AND, OR o ELSE 
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IF A-3 AND C$="SI'" THEN LET D=D + 1 
IF X<0 OR X>100 THJEN PRINT "FUORI CAMPO" 
IF ANNI<36 THEN PRINT "GIOVANE" ELSE 
PRINT "VECCHIO" 


Puoi usare questi comandi del BASIC per aggiungere test e 
istruzioni a comandi IF... THEN, come mostrato negli esempi 
qui sopra. Quando usi AND il computer eseguirà il comando 
THEN solo se entrambi i confronti nell’istruzione IF risultano 
veri. La parola ELSE consente di dare istruzioni che il 
computer deve eseguire se nessuno dei due confronti risulta 
vero. Sai scrivere un breve programma che usi ELSE per 
risolvere il problema qui a destra? 

* Questi comandi del BASIC non sono disponibili su tutti i computer. 




Il numero che hai scelto è 
memorizzato in C. 

Questa riga ti avverte nel caso tu 
batta qualcosa di diverso da un 
numero fra 1 e 5. Per saperne di 
più su OR vedi sotto. 


Problema 



Il robot campione di corsa 
Zak può correre 500 metri al 
secondo, ma se la 
temperatura sale sopra i 15 
gradi o scende sotto, la 
velocità di Zak aumenta o 
diminuisce di 10 metri al 
secondo. Sai scrivere un 
programma che stampi la 
distanza che Zak percorrerà 
a seconda della temperatura 
o del numero dei secondi 
che indichi? (Risposta a 
pagina 48.) 














Come modificare il database 

Una volta capito come funziona il programma, è molto facile modificarlo per 
costruire un database per un argomento diverso. Qui sotto puoi trovare alcune idee 
per vari database. 

Dopo aver deciso l’argomento del database, costruisci una tavola con tutti i valori 
dei dati, come quella a pagina 18. La tua tavola può avere un numero di file e di 
colonne diverso, nel qual caso devi modificare le dimensioni delle matrici del 
programma. Successivamente inserisci i tuoi dati nelle righe del programma con 
DATA e riscrivi le domande del menù. Ricorda di cambiare le istruzioni DIM e il 
numero di esecuzioni dei loop per l’inserimento dei dati nelle matrici. 


Database di una rivista 



SETTI MAN A$ 



Un database di una rivista può servire a trovare in che mese 
è stato trattato un argomento, o quali argomenti sono stati 
trattati in un determinato mese, risparmiando ore di ricerca di 
un determinato articolo. Per far questo sarà mecessaria una 
matrice chiamata SETTIMANA§ e un’altra chiamata 
ARGOMENTO$, oltre alla matrice con i dati. 


Database naturalistico 


sin 





Un database relativo a uccelli o a piante potrebbe 
mostrare dove o quando sono stati avvistati. Ci vorrà una 
matrice per il nome degli uccelli o delle piante e un’altra 
per il luogo o il momento delTawistamento. Le 
associazioni naturalistiche stanno compilando database 
per registrare la distribuzione delle diverse specie. 


Database di cibi e vitamine 


no 


CIBO$ 





Questo database permette di trovare quali cibi 
contengono una determinata vitamina o quali vitamine 
sono presenti in un determinato cibo. Un’altra idea 
sarebbe un database di cibi e calorie, per vedere le 
calorie di un determinato cibo o quali cibi hanno più di un 
certo numero di calorie. 









Grafica istantanea 

Questo programma traccia sullo schermo figure semplici e le riempie con 
un reticolo di linee. Nella grafica dei computer 1 reticoli vengono usati 
spesso, per rendere le figure piu "tridimensionali” o piu "spaziali". Il 
programma utilizza il comando grafico HPLOT X,Y per tracciare un punto e 
HPLOT XI, Y 1 TO X 2 , Y 2 per una linea; le coordinate X e Y vengono 
misurate dal bordo dello schermo. Dovrai adattare queste istruzioni al tuo 
computer e aggiungere eventuali comandi per indicare il tipo di grafica* 
Esistono due modi diversi per scrivere 1 programmi grafici: puoi dire al 
computer di calcolare e tracciare tutti 1 punti via via che procede, 
costruendo gradualmente la figura sullo schermo, oppure gli puoi far 
eseguire i calcoli prima, immagazzinare 1 risultati in matrici, poi tracciare la 
figura completa quasi istantaneamente. Il programma che segue utilizza 
l’approccio della "grafica istantanea". 



Puoi ottenere figure e forme di ogni genere colori diversi. Alla fine del listato vengono dati 

modificando i dati del programma; è anche alcuni suggerimenti su come adattare il 

possibile tracciare le linee del reticolo in programma. 



Il programma è composto da tre parti seconda (righe 200-360) calcola le coordinate 

principali: la prima (righe 100-190) traccia gli del reticolo e la terza (rige 400-550) traccia le 
angoli del reticolo e le linee che li uniscono; la linee. 



Per memorizzare tutti i dati delle coordinate, il 
programma utilizza quattro matrici: CX e CY 
contengono le coordinate X e Y dei quattro 
26 angoli del reticolo. I dati relativi a queste 


matrici vengono forniti all’inizio del 
programma; CX(1) e CY(1) contengono le 
coordinate del primo angolo, CX(2) e CY(2) 
quello del secondo e cosi via. 


* Su alcuni computer, per esempio lo Spectrum e l’Oric, le coordinate X e Y di una linea vengono misurate dall’ultimo punto 
tracciato. Per modificare il programma per questi computer vedi pagina 47. 
















— 

-J Ly 


Questi contengono le 
coordinate per le linee 
-del reticolo. 


LX e LY sono le matrici in cui vengono 
memorizzate le coordinate delle linee del 
reticolo. Sono matrici bidimensionali, ognuna 
con quattro file; il numero delle colonne 
dipende da quello delle linee. Ogni fila 

Il programma 

•100 INPUT "QUANTE LINEE VUOI T— 
NEL. RETICOLO? "sN J 

110 DIM CX( 4 ) ,CY< 4 ) 1- 

115 DIM L.X ( 4 , N > ,LY<4,N> J 
120 HOME 

130 REM TRACCIA I LATI DEL , 
RETICOLO f 

135 REM INSERISCI l 

L'ISTRUZIONE DEL TUO ) 

COMUTER RELATIVA ALLA f 

MODALITÀ” GRAFICA \ 

136 HGR s HCOLOR- 3 K.Ì) ) 
1140 POR 1=1 TO 4 

145 READ CX ( I ) , C Y ( I ) ifqj. 

150 NEXT I -* «—I 

160 DATA 10,50,220,50,250,150,1 


contiene le coordinate delle linee di un lato 
del reticolo, con la fila 1 corrispondente al lato 
1 ecc. Il computer memorizza i dati in LX e LY 
via via che effettua i calcoli del programma. 


I valori qui forniti 
si riferiscono al 
reticolo a sinistra 
della pagina 
precedente. Per 
ottenere reticoli 
diversi modifica 
quei valori. I 


Prova con 20 per i computer 
con grafica ad alta risoluzione e 
5 per quelli a bassa. 

Comunica al computer quanto 
devono essere grandi le matrici. 


1 20,1 50 


1 7 0 H PI... 0 T C X ( 4 ) , C Y ( 4 ) ( i comandi 

\ del tuo 
( computer per 

■130 POR 1 = 1 TO 4 V HPLOT 

•1 8 5 H P I... 0 T T 0 C X < I ) , C Y < lV~r- 

190 NEXT I J- 

IL LISTATO CONTINUA NELLA PAGINA SEGUENTE 



Loop per insenre in CX e CY ì 
dati degli angoli. A ogni 
ripetizione del loop i due valori 
successivi della riga 160 
vengono inseriti in CX e CY. 

Sono le coordinate degli angoli. 
Può darsi che questi valori 
vadano modificati per entrare 
nel tuo schermo. 

Traccia l’angolo 4 usando i 
valori immagazzinati in CX(4) e 
CY(4). 


Loop per tracciare i lati del 
reticolo. 


Come tracciare i lati 


Angolo 4 



CX(4),CY(4) 


CX(1),CY(1Ì 


CX(3),CY(3) 

\CX(2), 

^ \CY(2) 


Per tracciare i lati del reticolo, il computer 
comincia dall’angolo 4 (riga 170). 
Successivamente il loop delle righe 180-190 gli 
fa tracciare una linea aH’angolo 1. Ad ogni 


ripetizione del loop, la variabile 1 aumenta di 
uno e il computer traccia una linea all’angolo 


successivo. 





200 REM CALCOLO DELLE COORDINATE 
LINEE DEL RETICOLO 


Ricorda, CX(1) e CX(2) sono le X 
degli angoli 1 e 2, mentre CY(1) e 
CY(2) sono le Y. 



: DELLE 1_ 



La parte successiva del 
programma è costituita da 
quattro loop per calcolare le 
coordinate delle linee del 
reticolo. La figura qui sotto 
mostra il procedimento. 


210 

EOR 1 = 1 T0 N J- 



220 

LET LX(1,1)"CX(1 

) + (CX < 2) - 

-CX(1))«I/N 

230 

LET LY(1,1)=CY(1 

)+(CY(2) 

•CY ( 1 ) )*I/N 

240 

NEXT I 





N è il numero di linee del 
reticolo che hai scelto. 

Calcola le X per le linee del 
reticolo lungo il lato 1 e le 
immagazzina in LX fila 1, 
colonne da 1 a N. 

Calcola le Y per il lato 1 e le 
immagazzina in LY fila 1 colonne 
da 1 a N. 



Ogni loop calcola le coordinate delle linee del 
reticolo lungo un lato del reticolo stesso. Per 
esempio, le righe 210-240 calcolano le 
coordinate del lato 1. Alla riga 22 il computer 
sottrae CX(1) da CX(2), fornendo cosi il numero 
di X lungo il lato 1. Alla prima esecuzione del 
loop, questo valore viene moltiplicato per 1/N 
(N è il numero di linee che hai scelto). Se, per 
esempio, N è 5, si ottiene 1/5 della lunghezza 


del lato 1. Il valore ottenuto viene aggiunto a 
CX(1) e la risposta memorizzata in LX(1,1). Alla 
seconda esecuzione del loop, 1 = 2, cosi che la 
moltiplcazione è per 2/5 e la risposta viene 
memorizzata in LX(1,2). Questo viene ripetuto 
per tutti i valori di I, da 1 a N, per trovare tutte 
le X delle linee del reticolo lungo il lato 1. Lo 
stesso metodo viene utilizzato alla riga 230, per 
trovare le Y. 



EOR 1=1 TO N 

LET L.X ( 3 , I ) =CX < 4 > + < CX ( 3 ) - CX ( 4 ) ) « I/N 
LEI L.Y ( 3 , I ) =C Y ( A > + ( C Y ( 3 ) -CY (4) )*I/N 
NEXT I 



290 

F0R 

300 

LET 

3 1 0 

LET 

320 

ne;: xi 


1=1 TO N 

LX < 2, I >"CX< 2 ) + ( CX < 3)-CX (2)> *I/N 
L.Y<2, I )=CY<2) + <CY(3)-CY<2) >*I/N 


Loop per il calcolo delle 
coordinate per il lato 3. Per 
memorizzarle nello stesso 
ordine del lato 1 (cioè da 
sinistra a destra), il computer 
deve effettuare le somme 
nell’ordine opposto. L’angolo 4 
viene sottratto dal 3 e il risultato 
aggiunto all’angolo 4. 


Cambia queste righe inS 
modo che siano come 
gli altri loop e guarda 
cosa succede. 


Loop per calcolare le coordinate 
del lato 2. 


IL LISTATO CONTINUA ALLA PAGINA A FRONTE 






330 FOR 1=1 IO N 

340 LEI LX<4,I)=CX<1>+ <CX< 4 )-CX< 1) )*I/N 
350 LE T L.Y(4, I >=CY<1 )+< CY <4> -CY <1 ) >*I/N 
360 NEXT I 

400 REM TRACCIA LE LINEE DEL RETICOLO 

410 LET F IL A = 1 : GOSUB 500 J- 

420 LET FIL.A=2 : GOSUB 500 


430 STOP 



Loop per calcolare le coordinate 
per il lato 4. 

Questa riga introduce una variabile 
chiamata FILA e le attribuisce il 
valore 1, dopo di che il computer 
va alla subroutine alla riga 500, la 
esegue, ritorna alla riga 420 e 
cambia FILA in 2 e va nuovamente 
alla subroutine. 

Questo arresta il programma dopo 
che la subroutine è stata eseguita 
due volte. 


500 

510 

520 

530 
\ 540 


REM SUB ROUTINE:! 

FOR 1=1 TO N 

HPL.OT LX ( FILA , I ) , LY < FIL.A , I ) 


HPLOT TO LX(FILA + 2,I),LY(FILA + 2,1 ) 
NEXT I 


FILA e I sono gli indici di LX e LY: 
dicono al computer in quali 
scompartimenti cercare le 
coordinate X e Y di ciascuna linea 
del reticolo. FILA è il numero di fila 
e I quello di colonna. La fila 1 
contiene le coordinate del lato 1, la 
fila 2 del lato 2 ecc. 


550 RETURN J- 

Come vengono tracciate le linee 



Ritorna alla riga 420 dopo la prima 
esecuzione della subroutine e alla 
riga 430 dopo la seconda. 


del reticolo 



Alla prima esecuzione della subroutine, 
FILA= 1, quindi alla riga 520 il computer 
traccia un punto sul lato 1. Alla riga 530 
aggiunge 2 a FILA, quindi traccia una linea 


fino al lato 3. Alla seconda esecuzione della 
subroutine FILA = 2, quindi traccia punti sulla 
fila 2 e linee fino al lato 4. 


Idee per modificare il programma 

1. Per costruire reticoli di forma diversa, inizia con il calcolare su carta le coordinate della 
forma che vuoi. Ricorda che la prima coppia di valori della riga 160 sono le coordinate 
dell’angolo 1, la seconda coppia dll’angolo 2 ecc. Se due angoli sono gli stessi, ottieni un 
triangolo. Prova a far intersecare i lati, come nella figura sulla destra di pagina 26. 

2. Usando INPUT con un loop puoi ordinare al computer di chiederti dati. Sostituisci le 
righe 140-160 con le seguenti: 

140 FOR 1=1 TO 4 

150 PRINT "QUALI SONO LE COORDINATE DELL'ANGOLO "; I 
155 INPUT CX(I),CY(I) 

160 NEXT I 

3. Per ottenere linee di reticolo colorate, inserisci il comando relativo ai colori del tuo 
computer prima dei GOSUB delle righe 410 e 420. Ricorda di separare con due punti 
GOSUB dal comando relativo ai colori. 




Programmi per l’ordinamento dei dati 

Talvolta è necessario disporre dati in ordine alfabetico o numerico per 
organizzare, per esempio, l'indice di una rivista, o analizzare informazioni 
raccolte sul tempo, sulla natura, o su qualche altro argomento. Se 1 dati sono 
pochi, si possono facilmente ordinare a mano, ma quando sono molti il 
computer è piu rapido e piu accurato. I programmi di ordinamento sono 
chiamati anche programmi "sort" o di "sorting" (sort significa ordinare); ne 
esistono molti in BASIC e li potrai trovare sulle riviste specializzate. I vari 
programmi possono essere scritti con tecniche diverse, secondo i compiti da 
svolgere. Nelle pagine che seguono ne vengono presentati due tipi: uno è 
chiamato "ordinamento a bolla" (bubble sort), e capirai subito perché, 
mentre l'altro è un ordinamento Shell, (dal nome del suo ideatore). 
L'ordinamento a bolla è uno dei metodi piu lenti ed è utile solo quando i dati 
sono pochi. Un ordinamento Shell è molto piu rapido. A pagina 35 troverai 
alcune righe che puoi aggiungere ai programmi per confrontarne le velocità 
e vedere la rapidità del tuo computer. 



In un ordinamento a bolla il computer comincia dall’inizio dell’elenco non ordinato e 
confronta fra loro i primi due elementi: se sono in ordine sbagliato, li inverte, poi passa 
ai due elementi successivi. Esamina cosi tutto l’elenco, e gli elementi ”piu piccoli” 
affiorano gradatamente, come una bolla, alla superficie dell’elenco. 

Il programma che segue è un ordinamento a bolla di numeri, mentre alla pagina 
successiva c’è un ordinamento a bolla di parole. 


100 REM ORDINAMENTO A BOLLA DI 
NUMERI 

110 INPUT "QUANTI SONO I NUMERI DA 
ORDINARE? " : T 


Introduce una matrice chiamata 
N con T scompartimenti. T è il 
totale dei numeri da ordinare. 


120 DIM N(T>]- 

i l 30 FOR 1=1 TO T 


Ti 40 
1150 
1160 

FRINÌ "NUMERO " 
INPUT N(I) 

NEXT I 

I 

Ipj 

3 (7^3 

rSr 

rMìlEk/, 

UÀ 

SHHBi 

m 

pi™ 


170 LET MAX-TJ 
LEI X=0]— 


Chiede quali sono i numeri da 
ordinare e li memorizza nella 
matrice. 



r 


Introduce un’altra variabile 
chiamata MAX per tenere il 
conto del totale, perché, 
durante l’esecuzione del 
programma, il valore di T varia. 


30 175 


X è un contatore. 








180 POR C=1 ro T-1 



Loop da eseguirsi T-1 volte. E’ 
quanto ci vuole per confrontare 
ogni numero dell’elenco. 


Le variabili SI e S2 servono a 
contenere ogni coppia di 
numeri durante il confronto. Alla 
prima esecuzione del loop, 

C= 1, cosi che NI e N2 vengono 
inseriti in SI e S2. 

Confronta i due numeri. Se SI 
è più piccolo di S2, i numeri 
sono in ordine corretto e la 
riga 250 rimanda il computer 
all’inizio del loop a scegliere 
la coppia successiva. Se SI è 
maggiore di S2, il computer 
procede con le successive 
righe che invertono le 
posizioni dei due numeri nella 
matrice. 


Il numero in N(C) viene 
inserito in una variabile 
chiamata TEMP. 

Il numero in posizione N(C + 1) 
è spostato nella posizione N(C) 
della matrice. 

Il numero in TEMP viene 
messo alla posizione N(C+ 1). 


260 IP X>0 THEN LEI T=T-1s GOTO 175]- 
270 PRINT "I NUMERI ORDINATI SONO " 


1280 POR 1 = 1 T0 MAX] 
290 PRINT N(I) 

1300 NEXT I 



Aggiunge uno a X per mostrare 
che c’è stata un’inversione. 


Rimanda il computer al confronto 
della successiva coppia di 
numeri. Dopo che il loop è stato 
ripetuto T-1 volte, il computer ha 
confrontato una volta tutti i 
numeri e passa alla riga 260. 


Se X è maggiore di 0, c’è stata 
un’inversione, quindi il 
computer sottrae 1 da T poiché 
un numero è nella posizione 
corretta, poi toma all’inizio del 
loop. Se X = 0, i numeri sono 
nell’ordine giusto e il computer 
passa alla riga 270. 

MAX è il numero totale dei 
numeri ordinati. 


31 











Ordinamento a bolla di parole 

Il programma che segue è un ordinamento a bolla di parole. E’ come 
quello per i numeri, solo che le variabili che contengono 1 dati (N, SI, S 2 e 
TEMP) sono variabili a stringa.* 

Il computer confronta le lettere con lo stesso metodo utilizzato per 1 numeri. 
All'interno del computer, anche le lettere e i simboli sono rappresentati da 
numeri, cosi quando il computer deve confrontare caratteri, ne confronta 1 
codici numerici. Per confrontare due parole, controlla innanzi tutto la prima 
lettera di entrambe e, se sono uguali, passa alla seconda e cosi via. Nelle 
variabili a stringa puoi inserire sia numeri che lettere, quindi puoi usare 
l’ordinamento a bolla di parole anche per dati che contengono sia parole 
che numeri, come indirizzi o voci di un indice. 




QUANTI ELEMENTI DA ORDINARE?'. 
ELEMENTO 1 

?DISK DRIVE 3', 76 82 93 
ELEMENTO 2 

7C0DICE MACCHINA 55 72 85 

ELEMENTO 3 

SUONO 32 

ELEMENTO 4 

7GRAFICA 8 23 45 

L'ELENCO ORDINATO E' 

CODICE MACCHINA 55 72 85 
DISK DRIVE 34 76 82 93 
GRAFICA 8 23 45 
SUONO 32 


QUANTI ELEMENTI DA ORDINARE?4 
ELEMENTO 1 

?ROSSI PAOLO VIA ROMA 14 
ELEMENTO 2 

7FERRARI MARIO VIA SALERNO 5 
ELEMENTO 3 

7FERRI MARCELLA VIA VITTORIO 12 
ELEMENTO 4 

?ALESSI MARCO VIA CINQUE MAGGIO 1 
L'ELENCO ORDINATO E' 

ROSSI PAOLO VIA ROMA 14 
FERRI MARCELLA VIA VITTORIO 12 
FERRARI MARIO VIA SALERNO 5 
ALESSI MARCO VIA CINQUE MAGGIO 2 




In questo esempio il computer ordina elementi 
di un indice e, a destra, indirizzi. Gli elementi 
sono stati inseriti senza virgole, poiché per la 
maggior parte dei computer la virgola è un 


separatore, o "delimitatore”, fra le 
informazioni. Per contenere virgole, una 
stringa dev’essere fra virgolette. 


Il programma 


REM ORDINAMENTO A BOLLA PER PAROLE 
INPUT "QUANTI ELEMENTI DA ORDINARE? ";T 

DIM N*<T) 1 - 


Introduce una matrice 
chiamata N$ con T 
scompartimenti. 


for 1*1 ro r 

PRINT "ELEMENTO 
INPUT N$(I) 

NEXT I 
LET MAX == T 
LET X=0 

FOR C=1 TO T-1 



Prova a inserire elementi 
che -iniziano con un 
simbolo, un numero, una 
lettera maiuscola e una 
minuscola e guarda in 
che ordine vengono 
disposti. __ / 


GOTO 


190 LET SI $=N$ ( C ) : LET S2*=N* ( C + 1 ) _ I primi due elementi 

200 IF SI $< -S2$ THEN GOTO 250 ]-- vengono inseriti in Sl$ e ; 

210 LET TEMP$=N$ ( C ) T 1 - Confronta Sl$ e S2$. 

220 LET N$(C)-=N$(C + 1 ) - 

230 LET N$ ( C+1 ) ~TEMP$ J - Scambia le posizioni dei 

240 L ET X-X+1 primi due elementi di N! 

250 NEXT C 

260 IF X>0 THEN LET T=T--1 s GOTO 175 1-, TfX>f) snttrap 1 Hai 

270 PRINT "L'ELENCO ORDINATO E'" totale è toma all’inizio di 

i 2G0 FOR 1=1 TO MAX loop per controllare 

1290 PRINT N$ < I ) ___ nuovamente l’elenco. 

\ 300 NEXT I j n -i n 

/ Se metti il GOTO della 1 le" J 
( riga 260 su una riga a sé, '> vT S_ 
i \^ipetnF...THEN^^^^/ n? P 

* Per i computer Sinclair (Timex), cambia la riga 120 in DIM N$(T,N), dove N è la lunghezza della stringa più lunga che vuoi 


I primi due elementi 
vengono inseriti in Sl$ e S2$. 

Confronta Sl$ e S2$. 

Scambia le posizioni dei 
primi due elementi di N$. 


If X>0, sottrae 1 dal 
totale e torna all’inizio del 
loop per controllare 
nuovamente l’elenco. 








Ordinamento Shell 


Se 1 dati sono numerosi, l’ordinamento a bolla è molto lento: su alcuni 
computer è necessario quasi un minuto per cinquanta elementi. Il 
programma che segue è un ordinamento Shell per numeri che è circa 
tre volte piu rapido di un ordinamento a bolla. 

In un ordinamento Shell, il computer divide l’elenco dei dati in due e 
confronta tutti quelli di una metà con quelli dell’altra, poi divide 
nuovamente l'elenco in due e compie molti altri confronti usando le 
stesse tecniche dell'ordinamento a bolla. 



Il programma 


•100 


120 

I l 30 
140 
150 
160 
170 
180 


REM ORDINAMENTO SHELL PER 
NUMERI 

INPUT "QUANTI SONO I NUMERI DA 
ORDINARE? ";T 
DIM N(T) 

FOR 1=1 TO T 
PRINT "NUMERO "; I 


Queste righe sono come quelle di 
un ordinamento a bolla: T è il totale 
dei numeri da ordinare e le righe 
120-160 richiedono l’inserimento 
dei numeri e li immagazzinano nella 
matrice N. 


INPUT N(I ) 
NEXT I 
LET C=T 1— 


LET C = 


INT (C/2) 



Rende C uguale al numero totale 
dei dati. 

Divide C in due per fornire il numero 
di elementi della prima metà 
dell’elenco. INT fa scartare le cifre 


che seguono il punto decimale per 
rendere C un numero intero. 


190 IF C=0 TI-1EN 


GOTO 330 



Il programma divide ripetutamente 
C per due e quando C = 0 il 
computer torna alla riga 330 per 
stampare l’elenco ordinato. 



tutti i numeri. 


IL LISTATO CONTINUA ALLA PAGINA SUCCESSIVA 













280 

LET F-F--C 

290 

IF F >0 THEN 

300 

LET E”E + '1 

310 

IF E >D THEN 

320 

GOTO 220 ]_ 

330 

PRINT ~L ' EL. 

340 

FOR 1=1 T0 

350 

PRINT N( I ) 

360 

NEXT I 


ORDINATO E"' 


modificare i valori di F e di G 
alle righe 220 e 230. 


Verifica che E sia dalla parte di 
D dell’elenco. Se non lo è torna 
alla riga 180 per dividere 
nuovamente l’elenco. 


Se E è minore di D, il computer 
va alla riga 220 per determinare 
gli indici della successiva 
coppia di numeri. 


Stampa l’elenco ordinato. 


Sai aggiungere righe perché il 
computer ti dica, dopo aver 
ordinato un elenco, quanti 
confronti e quante inversioni ha 
effettuato? (Risposta a pagina 
48). Dopo potresti provare il 
programma su vari elenchi e 
vedere come variano. / 



Per modificare questo programma in modo che 
ordini stringhe, cambia la variabile N in N$ (alle 
righe 120, 150, 240-270 e 350), la variabile TEMP 
in TEMP$ (alle righe 250 e 270) e riscrivi le 
istruzioni con PRINT. Se hai un Sinclair, cambia 
la riga 120 in DIM N$(T,N), dove N è la lungezza 
della stringa più lunga che vuoi inserire. 








Come funziona? 

Per avere più chiaro il funzionamento dell’ordinamento Shell, puoi inserire nel programma 
queste righe che stampano i valori delle variabili, per vedere quali sono i numeri che il 
computer confronta. 


233 

PRINT 





235 

PRINT "F= "jFj" 

G~ " jG ]_ 


— 

F e G sono gli indici dei 

237 

PRINT "CONFRONTA 

N < " ; F ) 

E 


numeri da confrontare 


N ( " ; G ; " ) " 





245 

PRINT "INVERTI N<"?F?") E 

N < " -, G ; " > 

•]— 

Comunica gli indici dei 

274 

PRINT "ELENC0= " 

? 



numeri da scambiare. 

275 

FOR J=1 TO T 





276 

PRINT N< J> ?" "? 




Stampa l’ordinamento 

277 

NEXT J 




corrente dell’elenco. 

278 

PRINT 





279 

INPUT "PER CONTINUARE BATTI RETURN 

" ;Z$ 



Confronto fra ordinamenti 

Se hai provato l’ordinamento a bolla e quello Shell solo con pochi numeri, forse non hai notato 
quanto sia più rapido l’ordinamento Shell. Per valutare i due ordinamenti, puoi far generare a 
entrambi un elenco di numeri casuali e poi guardare quanto impiega ciascun programma per 
ordinarli. Più sono i numeri, più aumenta la differenza fra i tempi necessari con i due metodi; alla 
pagina che segue ci sono alcuni programmi che tracciano grafici per mostrare quelle differenze. 


Generazione di numeri casuali 

•140 L.ET N ( I > ~ INT ( RND 
< 1 )* 200+1 ) 

150 PRINT N < I ) 

165 INPUT "PREPARA L'OROLOGIO E 
PREMI RETURN PER INIZIARE 
L.'ORDINAMENTO" ;Z$ 


Per far si che i programmi generino i propri 
elenchi di numeri, devi sostituire le righe 140 e 
150 di entrambi i programmi e inserire una 
nuova riga 165 cosi da controllare quando 
inizia l’ordinamento. 

Esecuzione del test 

Per valutare ciascun programma, lo dovresti lanciare diverse volte, la prima per vedere quanto ci 
vuole per ordinare, per esempio, 10 numeri, poi 20, poi 30 ecc. Computer diversi ordinano gli 
elenchi a velocità diverse e alcuni, come lo ZX81, hanno una modalità rapida e una lenta. Quelle 
che seguono sono le velocità su un Apple II. 


Prova di ordinamento 

N. di numeri 
da ordinare 

10 

20 

30 

40 

50 

Ordinamento 
a bolla 

2 sec 

5 sec 

11 sec 

18 sec 

29 sec 

Ordinamento 

Schell 

1 sec 

2 sec 

4 sec 

6 sec 

8 sec 



La riga 140 genera numeri casuali fra 1 e 200 e 
li immagazzina nella matrice N. La riga 150 
stampa i numeri sullo schermo e la 165 fa si 
che il programma aspetti finché non viene 
premuto RETURN. 




Come tracciare grafici 

I risultati di un computer sono molto più facili da leggere e da capire 
se presentati in una forma interessante, usando sia grafici che parole. Il 
programma che segue crea un istogramma che mostra la differenza fra 
l’ordinamento a bolla e quello Shell. Nella pagina a fronte puoi vedere 
come modificare il programma per ottenere una curva. I programmi 
sono piuttosto lineari e puoi facilmente modificarli per mostrare 
informazioni diverse. Li puoi anche migliorare aggiungendo i comandi 
relativi ai colori del tuo computer, cosi da ottenere grafici a colori. 



Queste sono le immagini prodotte dai due 
programmi grafici. Entrambi i diagrammi 
mettono a confronto il tempo impiegato dai 
due ordinamenti per ordinare 10, 20, 30, 40 e 
50 numeri. Il tempo è sull’asse delle Y mentre 
il numero dei numeri ordinati è nell’asse delle 


X. Se il tuo computer può scrivere nella zona 
dei pixel, puoi aggiungere etichette per 
rendere i grafici più chiari. Nella pagina a 
fronte puoi vedere come procedere con il 
computer BBC. 


Programma per l’istogramma 


i* 


100 DIM B(5): DIM S<5>]- 

110 LET N=0 

120 FOR 1=10 TO 50 STEP 10 
130 LET N=N+1 

140 PRINT "PER "jlj" NUMERI" 

150 INPUT "QUANTI SECONDI HA 

IMPIEGATO L'ORDINAMENTO A BOLLA' 
";B(N) 

160 INPUT "E QUELLO SHELL? ";S<N> 

* 170 NEXT I 

180 INPUT "QUANTI PUNTI HA IL TUO • 
SCHERMO IN VERTICALE? ";H 
190 INPUT "E IN ORIZZONTALE? "jW 
200 REM SE NECESSARIO IMPARTISCI II 
COMANDO DI MODALUA’’ GRAFICA 


I valori per HPLOT vengono misurati 
dal bordo dello schermo. Se il tuo 
computer richiede coordinate misurate 
dall’ultimo punto tracciato, vedi come 
modificare il programma a pagina 47 


HGR : HC0L0R= 3 

REM TRACCIA GLI ASSI 

HPLOT 1 , H: HPLOT TO U,Hs HPLO 

1 , H : : HPLOT TO 1,1 

REM TRACCIA LISTOGRAMMA 

LET X=<W*0.75>/3 1 _ 

LET Y=(H*0.75)/B(5) 



Introduce le matrici B e S per 
contenere i dati degli 
ordinamenti a bolla e Shell. 


Loop per l’inserimento dei dati 
nelle matrici. N è un contatore 
per determinare gli indici delle 
matrici. 


Nota coma la variabile del 
loop I viene usata anche 
per contare i numeri. 



230 

240 

250 


r P 


Traccia gli assi a 1 pixel di 
distanza dal bordo dello 
schermo. H e W sono l’altezza e 
la larghezza dello schermo. 


I valori dt’X e Y determinano la scala 
del grafico lungo le assi delle X e 
delle Y. X è tre quarti la larghezza 
dello schermo divisa per 5, il numero 
delle prove; Y è tre quarti l’altezza 
divisa per il tempo più lungo, cioè B(5). 


IL LISTATO SEGUE A PAG. 37 












i 




Crea il loop per tracciare i segmenti 
dell’istogramma: la variabile I del loop 
conta le prove e ad ogni ripetizone 
del loop il computer traccia un 
segmento per ciascun ordinamento. 


Traccia un punto a una distanza I*X 
pixel in orizzontale e 1 in verticale. 
Alla prima esecuzione del loop I è 
1 e X è il valore della scala lungo 
Tasse delle X. 

Traccia una linea fino a B(I)*Y. Alla 
prima esecuzione del loop lèi, 
cosi B(I) è il tempo impiegato per 
ordinare 10 numeri e Y è il valore 
della scala lungo Tasse delle Y. 

Traccia un punto a una distanza di 
I*X-4 punti in orizzontale, cioè a 4 
punti sulla sinistra del segmento 
per l’ordinamento a bolla. 

Traccia una linea fino a S(I)*Y. 

Torna all’inizio del loop per 
tracciare la successiva coppia di 
segmenti. 


Se il tuo computer può stampare parole 
nella zona dei pixel, puoi aggiungere righe 
per etichettare i grafici. Per esempio, con 
un computer BBC sarebbero necessarie le 
seguenti righe: 


305 ODU 5:M0VE INT<B<I)*Y>+50:PRINT H B n 

308 ODU 5:MOOE <I *X)-7- ,INT<S<I)*Y>+50:PRINT "S" 



Programma per le curve 

Per tracciare una curva, ne devi tracciare il primo punto e poi unire con una linea i punti che 
seguono. Per far ciò devi separare i loop dei due ordinamenti. Per trasformare il programma 
degli istogrammi in uno che traccia curve, sostituisci le righe da 270 in poi con le seguenti. 


270 

HPL0T INT 
< B < 1)#Y> 

( X ), H- INI J 

280 

F0R N“2 T0 

5 

290 

HPL0T T0 

<B<N>*Y> 

TNT (N*X).H~ INI 


300 

NEXT N 

_ 

310 

HPL.0T INT 

(SCI >*Y> 

< X ) , H-- intJ-^ 

320 

POR N-2 T0 

5 

330 

340 

TIPI. 0T T0 

<S<N)*Y> 

NEXT N 

INI <N*X),H~ INT 


Traccia il primo punto dell’ordi¬ 
namento a bolla a X pixel in orizzontale 
e a B(1)*Y pixel in verticale. 


Loop per tracciare la curva 
dell’ordinamento a bolla. Ad ogni 
ripetizione del loop, N aumenta di 1 
e il computer traccia una linea fino 
al punto successivo del grafico. 


Traccia il primo punto 
dell’ordinamento Shell, a X pixel in 
orizzontale e a S(1)*Y pixel in 
verticale. 


Loop per tracciare la curva 
delTordinamento Shell. 



Ancora sulle stringhe 

Il programma delle pagine che seguono dà l'impressione di una 
conversazione fra te e il computer. Naturalmente il computer fa solo 
quello che gli viene ordinato e tutte le parole e le stringhe delle sue 
risposte sono contenute nelle matrici del programma.* 

Il compito principale del programma è di far scegliere al computer le 
parole giuste per le risposte; alcune routine in BASIC per la gestione delle 
stringhe fanno talvolta sembrare le sue risposte quasi "intelligenti”. Il 
successo di un programma del genere non è legato solo alla sua struttura, 
ma anche alle parole e alle frasi che vi sono inserite! Potresti provare a 
cambiare il vocabolario del computer per farlo "parlare" di altri argomenti, 
o rendere le sue risposte piu cordiali o piu brusche. 


Esempi 

r 1 

CIAO , COME: TI CHIAMI? GIULIA 
PARL.AIM0 UN PO', GIULIA 
?CIAO COMPUTER 

CHE NE PENSI DEL. NOTIZIARIO? 

?CHE NOTIZIARIO? 

E' UNA BUONA DOMANDA 
?NON ME LO VUOI DIRE? 

ASCOLTA GIULIA, PENSO CHE TU SIA 
L.A PERSONA PILJ' CORDIALE CON CUI 
HO PARLATO 
?GRAZIE 
DI NIENTE 

L_J 


r-1 

DI COSA VUOI PARLARE? 

PARLAMI DEL TEMPO GIULIA 
?PIOVE 

COME PUOI DIRLO CON SICUREZZA 
?L.O VEDO 

HO SENTITO DIRE CHE SEI UNA 
SPECIE DI GENIO GIULIA 
?CHI TE LO HA DETTO? 

NON IMPORTA 

?PERCHE' NON RISPONDI ALLE MIE 
DOMANDE? 

SENTI GIULIA NON PENSERAI CHE 
TUTTI GLI ESSERI UMANI SIANO 
SCORTESI, VERO? 

L J 


Come funziona 

Nel programma ci sono due metodi diversi per produrre le risposte del computer: uno è una 
routine di "controllo delle frasi”, l’altro un generatore di frasi casuali. 



La routine di controllo delle frasi contiene un 
elenco di parole e frasi che vengono usate 
frequentemente e che sono memorizzate in 
una matrice chiamata Q$. Per ciascuna frase o 
parola, in M$ è memorizzata una risposta 


adeguata. Quando inserisci qualcosa, il 
computer controlla se hai usato una della frasi 
in Q$, nel qual caso utilizza la risposta 
corrispondente in M$. 


Per modificare i programmi per il computer Sinclair (Timex) vedi pagina 47. 








Il generatore di frasi casuali è costituito da nella memoria del computer e sono state 

spezzoni di frasi che il computer completa con scelte in modo che le frasi cosi completate 

verbi, nomi e aggettivi scelti casualmente. abbiano un senso. 

Tutte le parole sono immagazzinate in matrici 

La funzione delle variabili 


iH 

m 

1 



B3 

Rasili 

mmm 

H 

1 



1 

Nomi 

1 

Aggettivi 


Parole iniziali 
di frasi. 

1 


Queste sono le matrici in cui sono immagazzinate le parole delle frasi casuali. 




Frasi 




Frasi di risposta del 
computer. 


Registra quali risposte ha 
utilizzato il computer. 


t —. . . . — 

|D$ 


U ] 

_ 1 

R* 



Il tuo nome 

Il tuo imput 

Risposta del computer 


Il programma 

100 HOME 

•Ilo DIM V*<10> ,N$<10> ,A*<10) 

•120 DIM T$<10) ,S$( 10) 

130 DIM M$(30),(30),C(30) - 

•140 REM LETTURA DEI DATI 

150 GOSUB 1000]- 

200 REM INPUT DELLA PERSONA 

210 INPUT "CIAO, COME TI CHIAMI? ";D$ 

220 PRINT 

230 PRINT "PARLIAMO UN PO' ";D$ 

240 INPUT I*]- 

250 IF 1$="" THEN GOTO 220]- 


Introduce le matrici in cui devono 
essere immagazzinate le parole e 
le frasi. (N.B. Su alcuni computer 
non è necessario specificare le 
dimensioni delle matrici quando 
hanno meno di 10 elementi.) 

Va a una subroutine per inserire 
tutte le parole e le frasi nelle 
matrici. 


La tua risposta al computer è in 1$. 

Controllo che l’utente non abbia 
premuto RETURN e 1$ sia vuoto. 
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IF 1$-"ADDIO" THEN 


GOTO 910} 


Se scrivi ADDIO il computer va 
alla riga 910 per chiederti se vuoi 
interrompere l’esecuzione del 
programma. , 


IL LISTATO CONTINUA ALLA PAGINA SUCCESSIVA 












300 

REM RISPOSTA 1 

310 

LET RISP= 

INT 

320 

IF RISP < 6 

THEN 

330 

GOTO 600 J- 


340 

PRINT 


350 

PRINT R$ 

1_ 

360 

PRINT 

J 

400 

REM CONTROLLA 


GOTO 490 


Il numero casuale nella variabile RISPOSTA 
decide che metodo utilizzerà il computer 
per rispondere. Se RISPOSTA è minore di 6 
verrà usata la routine di controllo delle frasi 
che inizia alla riga 490. 

Se RISPOSTA è uguale a 6 o maggiore il 
computer va al generatore di frasi della 
riga 600. 

Dopo aver elaborato la risposta, il 
computer la immagazzina in R$, poi la 
stampa sullo schermo con la riga 350. 


STATE UTILIZZATE 
IL LISTATO CONTINUA SOTTO 



Le righe 400-470 controllano quante risposte in 
M$ sono state utilizzate. Ogni volta che il 
computer trova una delle frasi in 0$ nel tuo 
input, inserisce il valore 1 come contrassegno 
nella posizione corrispondente di una matrice 


chiamata C. Questo non gli impedisce di usare 
nuovamente la stessa risposta. Le righe 400-470 
controllano quanti contrassegni sono in C e se 
ce ne sono più di 12 riporta tutti i contrassegni 
a zero. 


405 LET T=0 

410 FOR K=1 TO 30 "| - 

420 LET T=T+C(K) _ 

430 NEXT K 

440 IF T<12 THEN GOTO 460J 

450 FOR K=1 TO 30: LET C(K)=0:1- 
NEXT K J 

460 LET T=Q J- 

470 GOTO 240J-‘- 

490 REM ROUTINE PER IL 
CONTROLLO DELLE FRASI 

500 FOR FRASE=1 T0 30J- 

510 LET LI= LEN <G*(FRASE>> 

520 LET L2= LEN (1$)]- 

530 FOR TEST=1 T0 L2]- 

540 IF MID$ 

<1$,TEST,LI)=Q$(FRASE) THEN 
GOTO 560 

I 

550 NEXT TEST: NEXT FRASE: GOTO 
600 


Loop per contare quanti sono i contrassegni 
nella matrice C. Il totale è memorizzato in T. 

Se T è minore di 12, sono state 
utilizzate'meno di 12 risposte e il 
computer non deve riazzerare i 
contrassegni. 

Loop per azzerare tutti i numeri. 

Viene riazzerata la variabile T 
(quella che conta i contrassegni). 

Ritorna alla riga 240 per attendere 
l’input della persona. 

Loop che dev’essere eseguito tante 
volte quante sono le frasi in Q$.* 

A ogni ripetizione del loop il computer 
misura la lunghezza della frase successiva 
di Q$ e immagazzina tale lunghezza in LI. 

Il numero dei caratteri del tuo input (1$) 
viene immagazzinato in L2. 

TEST è un loop all’interno di un altro che 
dev’essere eseguito tante volte quanti sono 
i caratteri del tuo input. A ogni ripetizione 
del loop, i caratteri in 1$ vengono 
confrontati a quelli della frase in Q$: se 
sono uguali il computer va alla riga 560. 

Se, dopo tutte le ripetizioni dei loop, il 
computer non trova in 1$ nessuna delle 
frasi in Q$, va al generatore di frasi alla 
riga 600. 


Se usi il microcomputer BBC, vedi nota a pagina 46. 







560 IF C(FRASE)>0 THEN GOTO 
550 

570 LJET C < FRASE ) -C ( FRASE ) +1 
580 LET R$=M$(FRASE) 

590 GOTO 340 


IL LISTATO CONTINUA SOTTO 



Se trova una frase che corrisponde, il 
computer esce dal loop e va alla riga 
560, poi controlla nella matrice C il 
contrassegno che corrisponde alla frase. 
Se il contrassegno è diverso da zero, 
ritorna ai loop per vedere se c’è un’altra 
frase che corrisponda in 1$. 

Se il contrassegno è 0 lo cambia in 1 alla 
riga 570. Poi alla riga 580 guarda la 
corrispondente frase in M$ e la inserisce 
in R$ pronta per la stampa alla riga 350. 



Alla prima esecuzione della routine per il 
controllo delle frasi, FRASE = 1, cosi che il 
computer esamina la prima frase in Q$. Alla 
prima esecuzione del loop TEST, TEST= 1, cosi 
che il computer confronta la frase 0$ con i 
caratteri da 1 a 7 Qa lunghezza di 0$) di 1$. Se 


non sono uguali ripete il loop TEST, con 
TEST = 2, cosi che i caratteri messi a confronto 
sono quelli da 2 a 8, e cosi via. Se i caratteri di 
1$ non sono uguali a 0$, il computer torna 
all’inizio del loop FRASE per scegliere la frase 
successiva di Q$. 


REM GENERATORE DI FRASI -i 
L.ET E= INT ( RND <1>*10+1> 

LET F = INT ( RND <T>*10+1> 

LET G= INT ( RND <1>*10+1> - 

LET H= INT ( RND <1>*10+1> 

LET L= INT ( RND <1)*10+1) 

ON E GOTO J 

700,720,740,760,780,800,830,85 

0,890 

LET R*="CHE NE PENSI DEL 
',-N$(H> + "?~ 

GOTO 340 

LET R*=S*(L)+" "+D$+" NON 
PENSERAI CHE TUTTI GLI ESSERI 
UMANI SIANO "+A*<G>+" ,VER0?" 


FRASI 


< 1 >* 10 + 1 > 
< 1>*10 + 1 ) 
< 1 >* 10 + 1 > 
< 1 >* 10 + 1 ) 
< 1 >* 10+1 ) 


D$ contiene il tuo nome 


■ 

0,87 “ 


+A*<G>+‘ 


+T$(H)+" 


GOTO 340 fm • 

LET R*="H0 SENTITO DIRE CHE SEI S* 

UNA SPECIE DI " + A$(G> + " " + T$(H) + " \ 
"+D$ QJj 

GOTO 340 

LET R$=S$(L)+" "+D*+", PENSO CHE TU 
SIA LA PERSONA PIU' "+A$(G>+" CHE IO 


Numeri casuali per scegliere le parole 
, e le frasi da utilizzare. Il valore di E 
determina quale sarà la frase usata dal 
computer. F è per i verbi, G per gli 
aggettivi, H per i nomi e L per gli inizi 
di frase. 

Il numero in E determina a quale riga 
-deve andare il computer. Se E= 1, va 
alla prima riga dell’elenco; se E = 2 va 
alla seconda e cosi via. Per ulteriori 
informazioni sul comando ON vedi 
pagina 20. 

Le righe 700-900 contengono dieci 
frasi parziali che il computer completa 
con le parole da N$, V$ ecc. Il segno 
= fa si che il computer disponga le 
stringhe una dopo l’altra. Devi stare 
attento a mettere fra virgolette anche 
gli spazi, affinché le frasi siano 
distanziate correttamente. Il computer 
mette la frase completa in R$, poi 
torna alla riga 340 per stamparla. 


CONOSCA 


IL LISTATO CONTINUA ALLA PAGINA SUCCESSIVA 






770 GOTO 340 

780 LET Ri-”-"MI SENTO "+A$(G)+" ADESSO" 

790 GOTO 340 

800 PRINT : PRINT "SSSSS... STO PENSANDO..." 

810 LET R$™"PERCHE" NON "+VÌ<F)+" "+NÌ(H)+" PENSO CHE "+NÌ(H)+ 
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820 

830 

840 

850 

860 

870 


880 

890 

900 

910 

920 

930 

940 

950 

960 

1000 


■1010 
1 020 

1030 

1040 
1 050 

1060 

I 070 
1100 
1110 

II 20 
1130 
1140 
1150 
1160 
• 1-170 


1180 
1190 
1200 
1210 
1 220 
1230 
1240 


1250 
1 260 


1270 


1300 
1310 
1 320 
1340 
1350 
1 360 
1370 


SIA "+AÌ<G> 


GOTO 340 

LET RÌ = "PARL.AMI " + NÌ(H) + " , " + DÌ 
GOTO 340 

LET Ri-"CREDI CHE IO SIA "+AÌ<G)+", "+DÌ+* 
GOTO 340 

LET Ri-"PERCHE' NON "+VÌ<F)+" ANCORA UN PO”' 
"+Ai(G) 

GOTO 340 

LET Ri--" INDOVINA A COSA PENSO " + DÌ 
GOTO 340 

REM ROUTINE DI SALUTO]- 

PRINT "TI BASTA GIÀ"?" 

PRINT "C ” E ' QUALCUNO CON CUI PARLARE...?' 
INPUT Zi: IF ZÌ="SI"" GOTO 210 
PRINT : PRINT "ALLORA CIAO" 

END 

REM FRASI PER LA ROUTINE DI CONTROLLO 


Puoi modificare una 
qualunque di queste 
frasi per far dire al 
computer qualcosa di ; 
iiversc 



Se alla riga 260 rispondi 
ADDIO, il computer viene 
mandato qui. 


DELLE FRASI 

FOR 1*1 70 30: READ Qid): NEXT I 
DATA CHI SEI, COSA, ?, SIGNIFICA, 
PERCHE ” , IL TUO 

DATA "ME " ,"IO ", " QUELLO ", 
PARLARE', " NO " 

DATA ?. " SONO ", " IL MIO ", "SI 


Il computer cerca nel tuo input 
le frasi di queste righe. Stai 
-attento a batterle esattamente 
come appaiono qui, poiché gli 
spazi all’interno delle virgolette 
fanno parte dei dati. 


TU, 




DATA PENSI, ?, INTELLIGENTE, SCORTESE, 
GRAZIE, " DIA" 

DATA LORO, ?, CAPISCO, " NO", "E"' 

DATA A, ?, SAPERE 

REM RISPOSTE DEL COMPUTER ALLE FRASI IN Q<£ 


FOR 1=1 TO 30: READ M$(I): NEXT 1 
DATA SONO SOLO UN COMPUTER 
DATA NON IMPORTA, E” UNA BUONA DOMANDA 
DATA NON LO SO, "BE', PERCHE” NO?" 

DATA CHE UUOI DIRE, "CHI SEI?" 

DATA OH, COSA SIGNIFICA 

DATA VUOI CHE STIA ZITTO. E” UN 

ATTEGGIAMENTO UN PO” NEGATILO 

DATA DEVI DIRMELO TU, CHE UUOI DIRE 

DATA OH-OH, QUINDI SEI D'ACCORDO 

DATA "NON TI PIACCIO?" 

DATA PERCHE”, DECIDITI, GRAZIE 
DATA NON HAI ANCORA DISTO NIENTE 
DATA DI NIENTE 

DATA E TU, NON M'IMPORTA. CHE DOMANDA 
SCIOCCA 

DATA NON SEI MOLTO INTELLIGENTE, 
SCIOCCHEZZE 

DATA COSA TI DA’ TANTA SICUREZZA, 
OATTENE 

DATA NON MI SECCARE, PER ME LA 

CONOSCENZA E” UN PROBLEMA 

REM LETTURA DEI NOMI 

FOR 1*1 TO 10: READ N$(I): NEXT I 

DATA CALCIO, BALLO 

DATA TEMPO, NOTIZIARIO 

DATA MIO PROCESSORE, PESCE 

DATA CAPODOGLIO, MUTAMENTO 

DATA MONDO, CIBO 


Sono le risposte del computer 
a ognuna,delle frasi in Q$. Le 
risposte compaiono nello 
stesso ordine delle frasi. Per 
esempio, il quinto elemento in 
M$ è la risposta alla quinta 
frase in Q$. 


H Sono i nomi da inserire nelle 
frasi casuali. 









Routine di risposta 

In queste due pagine è riportata un’altra routine che potete aggiungere al programma di 
conversazione, e che consente al computer di rispondervi usando le vostre stesse parole. La 
versione funzionante sui computer SINCLAIR è riportata in basso nella pagina accanto. 



La routine di risposta funziona in un modo simile alla routine di controllo delle risposte. Ci sono 
due array dei dati, U$ e W$. U$ contiene le frasi che potreste usare nel vostro input e W$ 
contiene le risposte del computer. Se usate una delle frasi contenute in U$ la routine di risposta 
la sostituisce con la frase corrispondente in W$ e gli aggiunge poi il resto della vostra frase. 


135 D 
138 DI 


IM U$ ( 9 ) ,W*<9) 1 
I fi Z$ (. 5 ) J- 


155 GOSUB 2200 


} 


325 IF RISP —7 THEN GOTO 2000 

2000 REM-SUBROUTINE: DI 
RISPOSTA 


2010 le;t Z^O 


2020 L..ET P — L E N ( I $ ) 
2030 FOR A-1 TO F'"t 


2040 FOR B-1 TO 9 


2050 L.ET L.--L.EN <U$<B>) 


2060 IF MID$ (1$„A, I... ) ~U$ ( B ) 
THEN GOTO 2140 


20Z0 NEXT B: NEXT 




Dimensiona i vettori U$ e W$ ed un altro 
vettore, detto Z$ che contiene le risposte del 
computer. 

Va alla subroutine che legge i DATA 

Dice al computer quando usare la subroutine 
di risposta. 


Z è un contatore. 

Conta il numero di caratteri della tua risposta. 

Loop che viene eseguito tante volte quanti 
sono i caratteri della tua risposta.* 

Loop che viene ripetuto tante volte quanti 
sono i caratteri della parola più lunga 
contenuta in W$. 

Ogni volta che viene ripetuto il loop B, in L 
viene posta la lunghezza della parola 
successiva contenuta in U$. 

Confronta i caratteri nelle posizioni dalla A alla 
L nella tua risposta con la frase contenuta in U$ 
nella posizione B-esima (il valore di B viene 
stabilito dal loop). Se le frasi corrispondono, il 
computer va alla riga 2140. 

Ogni volta che viene ripetuto il loop B il 
computer controlla la frase successiva 
contenuta in U$. Quando viene ripetuto il loop 
A prende la successiva sequenza di caratteri 
in 1$. 


2080 IF Z$(1 )=■'"' 


THEN GOTO 


600 



Ritorna al generatore di frasi casuali se non 
trova una frase che corrisponda. 
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* Se state usando un microcomputer BBC, guardate la nota di pag. 46. 



2090 
21 00 
2110 
2120 

F'OR J-1 TO ? 




FRI NT Z$(J>; 
LET Z$<, 

NEXT J J 




2130 

LET R$~ : I$ :ì GOTO 3 

.. ... ... . ,~i _ 

50 


21 40 

Ltt +1J 





2-150 IF A >1 THEN LET 
Z $(Z)™ L E FT$ ( I $ , A-1 )+" 
"+W$(B)=" " 


2160 IF A< 2 THEN LET- 

Z $ < Z ) ~ U) $ ( G ) = " " 

217 0 I... E T I $ == MID $ ( I $ A+L., P )}. 

2-180 GOTO 2020 


Stampa tutte le risposte in Z$. 

Mette tutto ciò che rimane della vostra frase in 
R$ e ritorna alla riga 350 per stamparla. 

Z tiene conto del numero di risposte in Z$. 

Il valore della variabile A è stabilito dal loop 
della riga 2030 ed è il numero del primo 
carattere della frase in 1$ che corrisponde con 
la frase contenuta in U$. Se A> 1 la riga 2150 
pone i caratteri alla sinistra della frase 
contenuta in Z$, poi aggiunge la risposta 
prendendola da W$. 


2200 REM DATA PER LA SUBROUTINE 
RISPOSTA 


221 0 

FOR I 

= 1 TO 

9 


2220 

READ 

IJ$( I ) , 

W$( I ) 


P P O () 

NEXT 

I 



2240 

SONO 

DATA 

IO SONO r TU S 

EI, TU 

2250 

DATA 

"IO ", 

TU,"ME 

" , TU 

2260 

DATA 

"MIO " 

,"TUO " 

,VOSTR 

2270 

DATA 

"TUO " 

, " M10 " 

,"MIEI 

2280 

DATA 

TLJ, COME UTERO 


2290 

RETURN 




DI 


Se A<2 allora la frase che corrisponde si trova 
all’inizio di 1$ e quindi il computer pone solo la 
sua risposta in Z$. 


E I , 


Mette il resto della tua frase in Z$ e ritorna al 
loop per vedere se c’è un’altra frase che 
corrisponde. 


, MIE li-Sono i DATA per U$ e W$. 

V0STRI 


Subroutine di risposta per i computer Sinclair 

Sia per i computer ZX81 che per lo Spectrum bisogna inserire le seguenti righe di 
programma. Per lo ZX81 però devi ricorrere al metodo riportato a pag. 47 per il programma di 
conversazione per introdurre i dati. Inserisci il loop di input dello ZX81 tra le righe 1000 e 
1720 e le istruzioni DIM prima della riga 1000. 


135 DIM Li $ ( 9,7 > 

136 DIM W$(9,9 ) 

137 DIM Z$<5,20) 

2042 LET P$=~" 

2 0 4 4 F 0 R I "= 1 T 0 L E N ( IJ $ ( B ) ) 

2046 IF U$ (B ) ( I TO I) <>"«" THEN I F I "1- 

P$=P$+U$(B) (I TO I) -I 

2048 NEXT I 
2050 LET L=L.EN< P$> 

2055 IF L.. + A-1>P THEN GOTO 2140J 

2060 IF I $ ( A I O A H..- I ) = P$ THEN GOTO 2140 T- 

2080 IF Z=0 THEN GOTO 600]_=_ 

2150 IF A>1 THEN LEI Z*<Z) = I$<T0 A l )♦" 1 

"+W*(B)+" " I- 

2160 IF A < 2 THEN L.ETZ$ ( Z ) =W$ ( B ) + " " J 
2170 LET It=I$(A+L TO) 

22 4 0 D A TA "10 SONO#","T U SEI","T U SEI * *","10 
SONO" 

2250 DATA "IO **#**","TU"," MI*#**","TU" 

2260 DATA " MIO #*","TUO","VOSTRI ","MIEI" 
2270 DATA " TUO **","MI0"," MIO#*#","VOSTRI" 
2280 DATA "TU #***","COMPUTER" 

2290 RETURN 


Mette una frase in P$ prendendola da 
U$ ed utilizzando il carattere * per 
trovare la fine della frase. 


_Se P$ è più lungo della frase contenuta 

in 1$, ritorna indietro per scegliere una 
nuova frase. 

_Se frase in P$ = frase in 1$ va alla riga 

r~ 2140. 

Se nessuna frase corrisponde, 

-va al generatore di frasi 

casuali. 


Se A> 1 mette i caratteri che 
sono all’inizio di 1$ in Z$ e 
aggiunge la frase W$. Se A<2 si 
’ limita a mettere la frase W$ in 
Z$. 

Gli spazi sono una parte 
, importante dei DATA, quindi 
riempite le stringhe con 
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Come modificare i programmi 


Queste due pagine mostrano come modificare 1 programmi per lo ZX 81 e 
lo Spectrum e come trasformare i programmi grafici per 1 computer che 
tracciano le linee relativamente all’ultimo punto disegnato. Oltre a inserire 
le righe qui presentate, devi anche apportare gli altri cambiamenti richiesti 
dal tuo computer, cioè usare i comandi grafici e l'istruzione RND 
appropriati e cambiare, se necessario, 1 nomi delle variabili. 


Gioco di individuazione delle 


Database per lo Spectrum 

parole sui computer Sinclair 


(Timex 2000) 

(Timex) 


10 DIM r $ ( 1 0 v 1 4 ) s DIM Y ( 1 2 ) :: 

Cambia CONTROLLA$ in C$ e sostituisci la 
riga 170 e la 200 con le seguenti: 


15 D 3: M M ( 1 0 ,1 2 ) 

1 _Come per lo ZX81 

425 

170 LET L«=U*(R T0 R) 

200 LET C$="C$ < 2 T0 ) + L$ 


Ricorda di mettere fra virgolette ogni dato 
delle righe con DATA. 


Database per lo ZX81 
(Timex 1000) 

IO DIM I$(10y14> 1 

12 DIM Y(12) - 

•14 DIM M$< 10,12) J n 

12 0 G 0 S U B 100+ 1 00« C ]-— 

417 LEI L=LEN<Z$> 1 

425 IF Z$--T$ ( I ) ( I IO L> THEN GOTOj" 
440 

455 IF VAL(M*(I,J))=1 THEN PRIMI 
"HA MINTO LA COPPA DEL MONDO NEL 
" y Y ( ,J ) 

4 6 O IF V A L < M $ ( I , J ) ) = 2 T H E N P R IN T 
"FINALISTA NEL " ; Y ( ,J ) 

555 IF V A L. ( M $ ( J , I ) -1 T H E N P R IN T 
T $ ( ,J ) y " I l A VIN T O L A C 0 P P A " 

2170 IF OO AND C<6 THEN GOTO 2180 

2175 PRIMI "PER FAMORE BORIMI UN 
NUMERO FRA 1 E 5" 

2176 GOTO 2150 


Invece di inserire tutti gli anni, li puoi far 
calcolare al computer con le seguenti righe: 


1000 POR 1=1 TO 3 

1010 !.. E T Y < I ) =1926+1*4 

1020 NEXT I 

1030 P OR .00 t: o 8 

10 4 0 L E T Y ( I + 4 ) = 1 95 0+4 « J. 

1050 NEXT I 

Sostituisci le righe da 1100 a 1120 con dieci 
istruzioni LET tipo: 


110 0 I... E T T $ < 1 ) = " U R U G U A Y " 

11 1 0 L E T T $ < 2 ) = " A R G E N TIN A " 


Sostituisci le righe 1200-1310 con altre dieci 
istruzioni LET come: 


1200 L. E T M $ ( 1 ) = " 100100000000 " 
1 2 1 0 L E T M $ C 2 ) = " 2 0 0 0 0 0 0 0 0 01 0 " 


Aggiungi una nuova riga: 

1310 RETURN 


Il secondo indice è la lunghezza 
della stringa più lunga. 

Utilizza C per calcolare il 
— numero di riga. 

L Dice al computer quali caratteri 
controllare. 

_ I dati sono memorizzati in una 
matrice a stringa, quindi è neces¬ 
sario VAL per dire al computer di 
prenderà valore numerico. 


Database su BBC e 
programma di 
conversazione 

Questi due programmi controllano i dati 
tramite loop, dai quali poi escono quando 
hanno trovato il dato desiderato. Il 
microcomputer della BBC permette di 
effettuare questa operazione solo dieci 
volte, dopo di che dà il messaggio di 
errore ”TOO MANY FORS” (troppi FOR). 

Per superare questa limitazione, cambia i 
loop in contatori di variabili con istruzioni 
IF...THEN. Per esempio, nel database 
utilizza le seguenti righe. 

420 LET 1=0 

422 LET 1=1+1 

430 IF IMO GOTO 422 

520 LET 1=0 

522 LET 1=1+1 

530 IF I<12 GOTO 522 

Dovrai fare la stessa cosa per le righe da 
500 a 550 del programma di Covnersazione. 
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Grafica istantanea e curve 

Per i computer (per esempio lo Spectrum e l’Oric) che tracciano le linee fino a un punto 
X,Y misurato rispetto al precedente punto tracciato e non all’angolo dello schermo, 
sostituisci le seguenti righe dei programmi di grafica istantanea e per le curve. (Dovrai 
sostituire DRAW e PLOT con i comandi richiesti dal tuo computer.) 


Grafica istantanea 

175 DRAW 

CX ( 1 ) - CX < 4 ) , CY ( 1 ) --CY ( 4 ) 

180 FOR 1-2 T0 4 
•185 DRAW 

CX ( I ) - CX ( 1-1 ) , CY ( I ) -CY < 4 ) 

530 DRAW LX(FILA 

+2, I ) -LX ( F ILA , I ) , LY ( FIL.A+2, I ) ~L 

Y(FILA y I ) 

Per trovare le coordinate delle estremità 
delle linee, il computer sottrae quelle 
dell’ultimo punto tracciato. 


Istogramma 

220 PLOT 1,H:DRAW 0,-H+lsDRAW 
W„0 

300 DRAW 0, INT(B <I)*Y) 

320 DRAW 0, INTCSCI)*Y) 

Curve 

290 DRAW X„ 

INT(<B <N)-B <N-1))*Y> 

330 DRAW X, 

INT <(S(N)~S(N~1))«Y) 


Programma di conversione per Spectrum 

Per lo Spectrum effettua i seguenti cambiamenti: 


110 

120 

130 

245 

500 


DI O 

530 

540 

550 

560 ■ 
570 
580 ■ 
660 


DIM V$<10,11) :DIM N*<10,16> :DIM A*<10,11) 
DIM T$ <10,14): DIM S*<10,14> 

DIM M$(30 r 29)s DIM Q*(30,7):DIM C<30) 

PRINT 1$ 

FOR Q=1 TO 30 ]- 

LEI P*="" 

FOR 1=1 TO LEN(0$(Q)> 

IF 0$(0)(I TO DO" " THEN T_ 

LET P$=P<M-Q$(Q> < I TO I) J 
NEXT I 

FOR T=1 TO L2-LEN(P$)+1 

IF 1$ ( T TO T+LEN ( P $ ) -1 > =P$ THEN GOTO 560 
NEXT T:NEXT 0: GOTO 600 

GOTO 560 

1 Sostituisci la variabile FRASE con Q. 


GOTO <<E<7)*(680+E*20))+<<E>6>* 
( 810+ < E--6 ) *20 ) ) 


Usa Q invece di FRASE. 

Mette la frase Q$ in P$. 

Controlla se sia I$=P$. 


Significa che se E < 7 
GOTO (vai a) numero di 
riga 680 + E*20 e se E>6 
GOTO numero di riga 
(810+(E-6)*20). 


Programma di conversione per lo ZX81 


Per lo ZX81 è necessario avere un metodo per 
introdurre i dati. Lo puoi realizzare usando i 
loop e la istruzione INPUT. Per eseguire il 
programma su uno ZX81, fai i seguenti 
cambiamenti al programma: 

1. Fai le stesse modifiche riportate qui sopra 
per lo Spectrum, ma metti le istruzioni DIM 
nelle rige 970-990. 

2. Sostituisci le righe contenenti le istruzioni 
READ/DATA con le istruzioni INPUT, ad 
esempio: 

1000 REM FRASI PER LA ROUTINE 
DI CONTROLLO DELLE FRASI 
1010 FOR 1=1 TO 30 
1020 INPUT Q*(I) 

1030 NEXT I 


3. Cambia la riga 1720 in questo modo: 

1720 STOP 

4. Batti il programma, poi digita RUN 970 e 
batti tutte le informazioni contenute nei DATA 
via via che il computer te le chiede. 

5. Poi, per provare il programma, batti GOTO 
100. Non battere RUN, perché altrimenti 
perderesti tutti i dati che hai appena digitato! 

6. Ora puoi salvare il programma su cassetta. 
Quando lo ricarichi, per eseguirlo devi battere 
sempre GOTO 100. 
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Risposte 

Problema del robot corridore (pagina 
42) 

10 INPUT "QUANTI GRADI CI SONO? 

""TEMP 

20 INPUT "QUANTI SECONDI? ";S 
30 IF TEMPI >15 THEN L.ET 
D=S« ( 500+10 « < TEMP -15 > > EL.SE L_ET 
D-5Q0*S 

40 IF D<1 THEN PRINT "PER ZAK FA 
TROPPO FREDDO":END 

50 PRINT "CON ";TEMP:" GRADI ZAK PUÒ' 
CORRERE ";D;" METRI IN "?S?" SECONDI" 


Inversioni dell’ordinamento Shell 
(pagina 34) 


90 LET X~0 

95 LET INVERO 

231 LET X~X+1 

271 LET INVER=INVER+1 

365 PRINT "CI SONO STATI'";X;" 

CONFRONTI E "? INVER ;" INVERSIONI" 


Il computer effettua innanzi tutto il 
calcolo 10*(TEMP - 15), ottenendo cosi 
la differenza in distanza per TEMP 
gradi. (Se TEMP è minore di 15 la 
risposta a questo calcolo è negativa.) 
Sommando la risposta a 500 ottiene la 
distanza che Zak può correre in un 
secondo che, moltiplicata per S, dà la 
distanza in S secondi. 

Segmenti più larghi (pagina 37) 

285 POR J=1 TO 8 STEP 2 

290 PLOT INT(I*X+J),1 

300 DRAW INT(I*X+J),INT <B(I> *Y > 

310 P L 0 T IN r ( I « 4 - 4 - J ) „ 1 

320 DRAW INT(I*X-4-J),INT<8<I>#Y> 

325 NEXT J 

Per alcuni computer questi 
valori vanno cambiati. 
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Speedy Computer 


Il calcolatore è anche (o 
soprattutto?) una macchina 
divertente. Si può giocare con 
lui, gli si possono fare delle 
domande, lo si può usare per 
scrivere una poesia o per 
suonare. 

Questa colorata serie di libri vi 
propone alcune delle cose più 
eccitanti che si possono fare 
con un calcolatore e vi spiega 
come farle. 

Scritti in linguaggio chiaro e 
comprensibile a chiunque, 
arricchiti da una moltitudine di 
illustrazioni, questi libri 
rappresentano una spiritosa 
introduzione al mondo dei 
computer per chi comincia da 
zero. 


altri volumi 
di questa collana 


Giochi con il computer 

I giochi con il computer visti, una 
volta tanto, dalla parte del 
computer e non dell’utente: come 
gioca, come vince, e infine... 
come lo si può vincere. 


primi passi 
in basic 


Con semplicità, humor e 
precisione una semplice guida al 
BASIC per principianti. 


Conoscere il Personal 

Con un linguaggio semplice, 
spiritoso, ma rigoroso, 
imparerete come funziona un 
Personal Computer, che cosa può 
fare e i primi elementi per 
poterlo utilizzare. 

Impariamo a programmare 

Leggero come una rivista 
illustrata, allegro come un 
fumetto, preciso come un libro di 
scuola: un modo nuovo di 
imparare a programmare. 
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